Esope source files

   1 : C ECMO      SOURCE    CHAT      05/01/12    23:24:30     5004           
   2 :       SUBROUTINE ECMO(ITABLE,MOTI,TYPI,IOBJ)
   3 : C
   4 : C ECRIRE UN OBJET DE TYPE TYPE DESIGNE PAR UN MOT
   5 : C
   6 :       IMPLICIT INTEGER(I-N)
   7 :       IMPLICIT REAL*8(A-H,O-Z)
   8 :       CHARACTER*(*) MOTI,TYPI
   9 :       CHARACTER*8 BLAN,MOT,TYPE
  10 :       DATA BLAN/'        '/
  11 :       MOT=MOTI
  12 :       TYPE=TYPI
  12 :       CALL LENCHA(MOT,LC)
  12 :       CALL LENCHA(TYPE,LC1)
  12 :       CALL ECCTAB(ITABLE,'MOT',0,0.D0,MOT(1:LC),.TRUE.,0,
  13 :      1                 TYPE(1:LC1),0,0.D0,BLAN,.TRUE.,IOBJ)
  14 :       RETURN
  15 :       END
  16 :