Télécharger ecmo.eso

Retour à la liste

Numérotation des lignes :

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

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