Sources Esope | Cast3M

lfcden
C LFCDEN    SOURCE    CHAT      05/01/13    01:15:42     5004
      SUBROUTINE LFCDEN(NBAND,LMAX,ITAB,IRETOU,IFORM)
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
      CHARACTER*4 ITAB(*)
      IRETOU=0
      IF (LMAX.EQ.0) GO TO 15
      IF(IFORM.EQ.1)READ(NBAND,8001,END=10,ERR=10)(ITAB(I),I=1,LMAX)
      IF(IFORM.EQ.0)READ(NBAND,END=10,ERR=10)(ITAB(I),I=1,LMAX)
 8001 FORMAT(16(1X,A4))
  15  RETURN
 10   IRETOU=1
      RETURN
      END