Télécharger inform.eso

Retour à la liste

Numérotation des lignes :

  1. C INFORM SOURCE JC220346 18/12/14 21:15:07 10039
  2. C CE SOUS PROGRAMME SERT A LISTER SUR L'UNITE DE SORTIE LE CONTENU
  3. C DU CHAPITRE DESIRE DU FICHIER D'INFORMATION
  4. C
  5. SUBROUTINE INFORM
  6. IMPLICIT INTEGER(I-N)
  7.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. -INC CCNOYAU
  11. CHARACTER*(LONOM) NOM
  12. CHARACTER*(LONOM) NOM4
  13. CALL LIROBJ('PROCEDUR',IAZZ,0,IRETOU)
  14. IF (IRETOU.NE.0) THEN
  15. CALL QUENOM(NOM)
  16. ELSE
  17. NOM=' '
  18. CALL LIRCHA(NOM,1,IRETOU)
  19. IF (IERR.NE.0) RETURN
  20. ENDIF
  21. IF(NOM(1:4).EQ.'....')RETURN
  22. CALL INFOR1(NOM,IRET)
  23. IF(IRET.EQ.7) THEN
  24. MOTERR(1:8)=NOM
  25. NOM4=NOM(1:4)
  26. CALL INFOR1(NOM4,IRET)
  27. ENDIF
  28. IF(IRET.NE.0) THEN
  29. CALL ERREUR(IRET)
  30. ENDIF
  31.  
  32. RETURN
  33. END
  34.  
  35.  
  36.  
  37.  
  38.  

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