Télécharger lfcdip.eso

Retour à la liste

Numérotation des lignes :

  1. C LFCDIP SOURCE PV 05/04/13 21:15:44 5073
  2. SUBROUTINE LFCDIP(NBAND,LMAX,ITAB,IRET,IFORM)
  3. C
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. DIMENSION ITAB(1)
  7.  
  8. -INC CCOPTIO
  9. -INC CCFXDR
  10.  
  11. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  12. C
  13. C BUT : RELIRE LES EN-TETES DE PILES (CF ECDIFP)
  14. C
  15. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  16.  
  17. IRET=0
  18. IF (LMAX.EQ.0) GO TO 2
  19.  
  20. IF (IFORM.EQ.1) THEN
  21. IF(IONIVE.LE.7) THEN
  22. READ(NBAND,8004,END=1,ERR=1) (ITAB(I),I=1,LMAX)
  23. ELSE
  24. READ(NBAND,8008,END=1,ERR=1) (ITAB(I),I=1,LMAX)
  25. ENDIF
  26. ENDIF
  27. IF (IFORM.EQ.0) READ(NBAND,END=1,ERR=1) (ITAB(I),I=1,LMAX)
  28. if (iform.eq.2) ios= IXDRIMAT( ixdrr, lmax,itab)
  29. GO TO 2
  30. 1 IRET=1
  31. 2 RETURN
  32.  
  33. C8004 FORMAT(' PILE NUMERO',I4,' NBRE OBJETS NOMMES',I4,' NBRE OBJETS',
  34. C & I4)
  35. 8004 FORMAT(12X,I4,19X,I4,11X,I5)
  36. 8008 FORMAT(12X,I4,18X,I8,11X,I8)
  37. END
  38.  
  39.  
  40.  
  41.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales