Télécharger prelst.eso

Retour à la liste

Numérotation des lignes :

prelst
  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.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12. -INC SMELSTR
  13. -INC SMELEME
  14. MELSTR=IRET
  15. SEGACT MELSTR
  16. N=ISOSTU(/1)
  17. INTERR(1)=MELSTR
  18. INTERR(2)=N
  19. CALL ERREUR(-126)
  20. DO 10 NN=1,N
  21. INTERR(1)=IMELEM(NN)
  22. INTERR(2)=ISOSTU(NN)
  23. CALL ERREUR(-127)
  24. MELEME=IMELEM(NN)
  25. SEGACT MELEME
  26. NBELEM=NUM(/2)
  27. WRITE(IOIMP,200)(NUM(1,I),I=1,NBELEM)
  28. SEGDES MELEME
  29. 10 CONTINUE
  30. SEGDES MELSTR
  31. WRITE(IOIMP,300)
  32. 200 FORMAT(10(I4,2X))
  33. 300 FORMAT(/)
  34. RETURN
  35. END
  36.  
  37.  

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