Esope source files

   1 : C ECME      SOURCE    CHAT      05/01/12    23:24:02     5004           
   2 :       SUBROUTINE ECME(ITABLE,MOTI,IVAL)
   3 : C
   4 : C ECRIRE UN ENTIER 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 BLAN,MOT
  10 :       DATA BLAN/'        '/
  11 :       MOT=MOTI
  11 :       CALL LENCHA(MOT,LC)
  11 :       CALL ECCTAB(ITABLE,'MOT',0,      0.D0,MOT(1:LC), .TRUE.,0,
  12 :      1                   'ENTIER',IVAL,0.D0,BLAN,.TRUE.,0)
  13 :       RETURN
  14 :       END
  15 :