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.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. -INC CCFXDR
  12.  
  13. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  14. C
  15. C BUT : RELIRE LES EN-TETES DE PILES (CF ECDIFP)
  16. C
  17. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  18.  
  19. IRET=0
  20. IF (LMAX.EQ.0) GO TO 2
  21.  
  22. IF (IFORM.EQ.1) THEN
  23. IF(IONIVE.LE.7) THEN
  24. READ(NBAND,8004,END=1,ERR=1) (ITAB(I),I=1,LMAX)
  25. ELSE
  26. READ(NBAND,8008,END=1,ERR=1) (ITAB(I),I=1,LMAX)
  27. ENDIF
  28. ENDIF
  29. IF (IFORM.EQ.0) READ(NBAND,END=1,ERR=1) (ITAB(I),I=1,LMAX)
  30. if (iform.eq.2) ios= IXDRIMAT( ixdrr, lmax,itab)
  31. GO TO 2
  32. 1 IRET=1
  33. 2 RETURN
  34.  
  35. C8004 FORMAT(' PILE NUMERO',I4,' NBRE OBJETS NOMMES',I4,' NBRE OBJETS',
  36. C & I4)
  37. 8004 FORMAT(12X,I4,19X,I4,11X,I5)
  38. 8008 FORMAT(12X,I4,18X,I8,11X,I8)
  39. END
  40.  
  41.  
  42.  
  43.  

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