Télécharger ecme.eso

Retour à la liste

Numérotation des lignes :

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

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