Télécharger prclst.eso

Retour à la liste

Numérotation des lignes :

  1. C PRCLST SOURCE CHAT 05/01/13 02:22:10 5004
  2. SUBROUTINE PRCLST(IRET)
  3. C
  4. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  5. C C ECRIT L'OBJET CL1 (DDL BLOQUE) STRUCTURE C
  6. C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  7. C
  8. IMPLICIT INTEGER(I-N)
  9. -INC CCOPTIO
  10. -INC SMCLSTR
  11. MCLSTR=IRET
  12. SEGACT MCLSTR
  13. N=ISOSTR(/1)
  14. INTERR(1)=MCLSTR
  15. INTERR(2)=N
  16. CALL ERREUR(-128)
  17. DO 10 NN=1,N
  18. INTERR(1)=IRIGCL(NN)
  19. INTERR(2)=ISOSTR(NN)
  20. CALL ERREUR(-129)
  21. 10 CONTINUE
  22. SEGDES MCLSTR
  23. WRITE(IOIMP,300)
  24. 300 FORMAT(/)
  25. RETURN
  26. END
  27.  
  28.  

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