Sources Esope | Cast3M

ecmf
C ECMF      SOURCE    CHAT      05/01/12    23:24:06     5004
      SUBROUTINE ECMF(ITABLE,MOTI,XVAL)
C
C ECRIRE UN FLOTTANT DESIGNE PAR UN MOT
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      CHARACTER*(*) MOTI
      CHARACTER*8 BLAN,MOT
      DATA BLAN/'        '/
      MOT=MOTI
      CALL LENCHA(MOT,LC)
      CALL ECCTAB(ITABLE,'MOT',0,     0.D0,MOT(1:LC), .TRUE.,0,
     1                   'FLOTTANT',0,XVAL,BLAN,.TRUE.,0)
      RETURN
      END