Télécharger ecml.eso

Retour à la liste

Numérotation des lignes :

  1. C ECML SOURCE CHAT 05/01/12 23:24:14 5004
  2. SUBROUTINE ECML(ITABLE,MOTI,LLOG)
  3. C
  4. C ECRIRE UN LOGIQUE 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 MOT
  10. LOGICAL LLOG
  11. MOT=MOTI
  12. CALL LENCHA(MOT,LC)
  13. CALL ECCTAB(ITABLE,'MOT',0,0.D0,MOT(1:LC),LLOG,0,
  14. 1 'LOGIQUE',0,0.D0,MOT(1:LC),LLOG,0)
  15. RETURN
  16. END
  17.  
  18.  
  19.  

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