Télécharger la plaquette Cast3M


fr en

Télécharger zlegen.eso

Retour à la liste

Numérotation des lignes : 

zlegen

  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