Esope source files

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