Télécharger prelst.eso

Retour à la liste

Numérotation des lignes :

  1. C PRELST SOURCE CHAT 05/01/13 02:25:41 5004
  2. SUBROUTINE PRELST(IRET)
  3. C
  4. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  5. C C ECRIT L'OBJET ELEMENT STRUCTURE C
  6. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  7. C
  8. IMPLICIT INTEGER(I-N)
  9. -INC CCOPTIO
  10. -INC SMELSTR
  11. -INC SMELEME
  12. MELSTR=IRET
  13. SEGACT MELSTR
  14. N=ISOSTU(/1)
  15. INTERR(1)=MELSTR
  16. INTERR(2)=N
  17. CALL ERREUR(-126)
  18. DO 10 NN=1,N
  19. INTERR(1)=IMELEM(NN)
  20. INTERR(2)=ISOSTU(NN)
  21. CALL ERREUR(-127)
  22. MELEME=IMELEM(NN)
  23. SEGACT MELEME
  24. NBELEM=NUM(/2)
  25. WRITE(IOIMP,200)(NUM(1,I),I=1,NBELEM)
  26. SEGDES MELEME
  27. 10 CONTINUE
  28. SEGDES MELSTR
  29. WRITE(IOIMP,300)
  30. 200 FORMAT(10(I4,2X))
  31. 300 FORMAT(/)
  32. RETURN
  33. END
  34.  
  35.  

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