Esope source files

   1 : C LFDIEN    SOURCE    PV        05/04/13    21:15:47     5073           
   2 :       SUBROUTINE LFDIEN(NBAND,LMAX,SEGTAB,iretou,IFORM)
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO
   5 : -INC CCFXDR
   6 :       SEGMENT SEGTAB
   7 :         CHARACTER*4 ITAB(NTOTO)
   8 :       END SEGMENT
   9 :       IF (LMAX.NE.0) THEN
  10 :             IF (IFORM.EQ.1)WRITE(NBAND,8001) (ITAB(I),I=1,LMAX)
  11 :             IF (IFORM.EQ.0)WRITE(NBAND) (ITAB(I),I=1,LMAX)
  12 :       if (iform.eq.2) ios=IXDRSTRING( ixdrr, itab(1)(1:4*lmax))
  13 :  8001       FORMAT(16(1X,A4))
  14 :        iretou=ios
  15 :       ENDIF
  16 :       RETURN
  17 :       END
  18 :  
  19 :