Télécharger diric1.eso

Retour à la liste

Numérotation des lignes :

  1. C DIRIC1 SOURCE CHAT 05/01/12 22:51:13 5004
  2. SUBROUTINE DIRIC1(MABS,IPRABS,MORD,IPRORD,IPEV)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. -INC CCOPTIO
  6. CHARACTER*4 MABS,MORD
  7. *
  8. * CREATION D'UN OBJET EVOLUTION
  9. *
  10. CALL ECROBJ('LISTREEL',IPRORD)
  11. CALL ECRCHA(MORD)
  12. CALL ECROBJ('LISTREEL',IPRABS)
  13. CALL ECRCHA(MABS)
  14. CALL ECRCHA('MANU')
  15. CALL EVOL
  16. CALL LIROBJ('EVOLUTIO',IPEV,1,IRETOU)
  17. RETURN
  18. END
  19.  
  20.  
  21.  

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