Esope source files

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