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

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