Télécharger ecmm.eso

Retour à la liste

Numérotation des lignes :

  1. C ECMM SOURCE CHAT 05/01/12 23:24:18 5004
  2. SUBROUTINE ECMM(ITABLE,MOTI,MOT1I)
  3. C
  4. C ECRIRE UN MOT DESIGNE PAR UN MOT
  5. C
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8(A-H,O-Z)
  8. CHARACTER*(*) MOTI,MOT1I
  9. CHARACTER*8 MOT,MOT1
  10. MOT=MOTI
  11. MOT1=MOT1I
  12. CALL LENCHA(MOT,LC)
  13. CALL LENCHA(MOT1,LC1)
  14. CALL ECCTAB(ITABLE,'MOT',0,0.D0,MOT(1:LC), .TRUE.,0,
  15. 1 'MOT',0,0.D0,MOT1(1:LC1),.TRUE.,0)
  16. RETURN
  17. END
  18.  
  19.  

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