Esope source files

   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 :