Esope source files

   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 : *
   9 :       CALL ECROBJ('LISTREEL',IPRORD)
   9 :       CALL ECRCHA(MORD)
   9 :       CALL ECROBJ('LISTREEL',IPRABS)
   9 :       CALL ECRCHA(MABS)
   9 :       CALL ECRCHA('MANU')
   9 :       CALL EVOL
   9 :       CALL LIROBJ('EVOLUTIO',IPEV,1,IRETOU)
  10 :       RETURN
  11 :       END
  12 :  
  13 :