Télécharger erreu1.eso

Retour à la liste

Numérotation des lignes :

erreu1
  1. C ERREU1 SOURCE GF238795 17/11/17 21:15:13 9626
  2. C
  3. C RECHERCHE DES MESSAGES D'ERREURS (SUITE)
  4. C
  5. SUBROUTINE ERREU1(ITYP,CHLU,NIVEAU,NBL)
  6. IMPLICIT INTEGER(I-N)
  7. -INC CCNOYAU
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. CHARACTER*(*) CHLU(2)
  12. C CHARACTER*4 CHTYP
  13. C CHARACTER*87 CHTAMP
  14. C RECHERCHE DE LA LANGUE
  15. DO 156 IK=1,LANGUA(/2)
  16. IF( LANGUE.EQ.LANGUA(IK)) THEN
  17. ILAN=IK
  18. GO TO 157
  19. ENDIF
  20. 156 CONTINUE
  21. ILAN=1
  22. C WRITE (IOIMP,158)
  23. C 158 FORMAT (' ERREUR DE LANGUE DU MESSAGE D''ERREUR')
  24. C NBL=0
  25. C NIVEAU=2
  26. C RETURN
  27. 157 CONTINUE
  28. C RECHERCHE DE L'ERREUR
  29. DO 10 I=1,IPMESS(/1)
  30. IF (NUMERR(I).EQ.ITYP) GOTO 20
  31. 10 CONTINUE
  32. WRITE (IOIMP,12)
  33. 12 FORMAT (' ERREUR DANS LA RECHERCHE DU MESSAGE D''ERREUR')
  34. NBL=0
  35. NIVEAU=2
  36. RETURN
  37. 20 CONTINUE
  38. NIVEAU=NIVERR(I)
  39. MCHERR=IPMESS(I,ILAN)
  40. C SEGACT MCHERR
  41. CHLU(1)=CHERR1
  42. IF (CHERR2(/1).EQ.0) THEN
  43. NBL=1
  44. CHLU(2)=' '
  45. ELSE
  46. NBL=2
  47. CHLU(2)=CHERR2
  48. ENDIF
  49. C SEGDES MCHERR
  50. END
  51.  
  52.  
  53.  
  54.  
  55.  

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