Télécharger inform.eso

Retour à la liste

Numérotation des lignes :

  1. C INFORM SOURCE GF238795 16/07/12 21:15:03 9029
  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. -INC CCOPTIO
  8. CHARACTER*8 NOM
  9. CHARACTER*8 NOM4
  10. CALL LIROBJ('PROCEDUR',IAZZ,0,IRETOU)
  11. IF (IRETOU.NE.0) THEN
  12. CALL QUENOM(NOM)
  13. ELSE
  14. NOM=' '
  15. CALL LIRCHA(NOM,1,IRETOU)
  16. IF (IERR.NE.0) RETURN
  17. ENDIF
  18. IF(NOM(1:4).EQ.'....')RETURN
  19. CALL INFOR1(NOM,IRET)
  20. IF(IRET.EQ.7) THEN
  21. MOTERR(1:8)=NOM
  22. NOM4=NOM(1:4)
  23. CALL INFOR1(NOM4,IRET)
  24. ENDIF
  25. IF(IRET.NE.0) THEN
  26. CALL ERREUR(IRET)
  27. ENDIF
  28.  
  29. RETURN
  30. END
  31.  
  32.  
  33.  
  34.  

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