Télécharger la plaquette Cast3M


fr en

Télécharger diric1.eso

Retour à la liste

Numérotation des lignes : 

diric1

  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.  
  6. -INC PPARAM
  7. -INC CCOPTIO
  8.       CHARACTER*4 MABS,MORD
  9. *
  10. *   CREATION D'UN OBJET EVOLUTION
  11. *
  12.       CALL ECROBJ('LISTREEL',IPRORD)
  13.       CALL ECRCHA(MORD)
  14.       CALL ECROBJ('LISTREEL',IPRABS)
  15.       CALL ECRCHA(MABS)
  16.       CALL ECRCHA('MANU')
  17.       CALL EVOL
  18.       CALL LIROBJ('EVOLUTIO',IPEV,1,IRETOU)
  19.       RETURN
  20.       END
  21.  
  22.  
  23.  

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