Télécharger ecmf.eso

Retour à la liste

Numérotation des lignes :

ecmf
  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
  12. CALL LENCHA(MOT,LC)
  13. CALL ECCTAB(ITABLE,'MOT',0, 0.D0,MOT(1:LC), .TRUE.,0,
  14. 1 'FLOTTANT',0,XVAL,BLAN,.TRUE.,0)
  15. RETURN
  16. END
  17.  
  18.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales