Esope source files

   1 : C ECMF      SOURCE    CHAT      05/01/12    23:24:06     5004           
   2 :       SUBROUTINE ECMF(ITABLE,MOTI,XVAL)
   3 : C
   4 : C ECRIRE UN FLOTTANT 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                   'FLOTTANT',0,XVAL,BLAN,.TRUE.,0)
  13 :       RETURN
  14 :       END
  15 :