Télécharger zlegen.eso

Retour à la liste

Numérotation des lignes :

  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
  14. CALL LIRENT(ILEG,1,IRETOU)
  15. IF(IERR.NE.0) RETURN
  16. C
  17. JG=ILEG+1
  18. SEGINI,MLREE1,MLREE2
  19. C
  20. CALL LEGEND(ILEG,MLREE1.PROG,MLREE2.PROG)
  21. C
  22. SEGDES,MLREE1,MLREE2
  23. CALL ECROBJ('LISTREEL',MLREE2)
  24. CALL ECROBJ('LISTREEL',MLREE1)
  25. C
  26. RETURN
  27. END
  28.  
  29.  
  30.  

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