Esope source files

   1 : C ZLEGEN    SOURCE    CHAT      05/01/13    04:24:09     5004           
   2 :       SUBROUTINE ZLEGEN
   3 : *****
   4 : *
   5 : *     LREE1_V LREE2_P=ZLEG ENT1;
   6 : *
   7 : *****
   8 :       IMPLICIT INTEGER(I-N)
   9 :       IMPLICIT REAL*8 (A-H,O-Z)
  10 : C
  11 : -INC CCOPTIO
  12 : -INC SMLREEL
  13 : C
  13 :       CALL LIRENT(ILEG,1,IRETOU)
  14 :       IF(IERR.NE.0) RETURN
  15 : C
  16 :       JG=ILEG+1
  17 :       SEGINI,MLREE1,MLREE2
  18 : C
  18 :       CALL LEGEND(ILEG,MLREE1.PROG,MLREE2.PROG)
  19 : C
  20 :       SEGDES,MLREE1,MLREE2
  20 :       CALL ECROBJ('LISTREEL',MLREE2)
  20 :       CALL ECROBJ('LISTREEL',MLREE1)
  21 : C
  22 :       RETURN
  23 :       END
  24 :  
  25 :