Télécharger erreur.eso

Retour à la liste

Numérotation des lignes :

  1. C ERREUR SOURCE CB215821 15/02/12 21:15:05 8396
  2. C
  3. C EDITION DES MESSAGES D'ERREURS
  4. C
  5. SUBROUTINE ERREUR(ITYYP)
  6.  
  7. IMPLICIT INTEGER(I-N)
  8. IMPLICIT REAL*8(A-H,O-Z)
  9.  
  10. -INC CCOPTIO
  11. -INC CCNOYAU
  12. -INC SMBLOC
  13. -INC CCASSIS
  14.  
  15. EXTERNAL LONG
  16. CHARACTER*10 FMT
  17. CHARACTER*133 CHERR(2),CHEN(2)
  18. CHARACTER*80 CHLU(2)
  19.  
  20. DATA FMT/'(1X,A...) '/
  21.  
  22.  
  23. C ETAIT-ON DEJA EN ERREUR
  24. IF(IERR.NE.0) RETURN
  25. C
  26. C EN TETE DE MESSAGE D'ERREUR
  27. ITYP = ITYYP
  28. C NIVEAU=0
  29. CALL ERREU1(0,CHLU,NIVEAU,NBL)
  30. IF (NBL.EQ.0) GOTO 10
  31. CALL ERREU2(CHLU,CHEN,NBL,ITYP)
  32. C
  33. C DANS LE CAS DE MESSAGE ISSU DE LIRE ON REGARDE SI MESLIR A ETE
  34. C UTILISE.
  35. C
  36. ITYPAN=ITYP
  37. IF( ITYP.EQ.37) THEN
  38. IF( MESERR.NE.0) ITYP= MESERR
  39. MESERR=0
  40. ENDIF
  41.  
  42. C MESSAGE D'ERREUR
  43. CALL ERREU1(ITYP,CHLU,NIVEAU,NBL)
  44. IF(ITYPAN.EQ.37) NIVEAU=2
  45. IF (NBL.EQ.0) GOTO 10
  46. CALL ERREU2(CHLU,CHERR,NBL,ITYP)
  47. C
  48. if (niveau.gt.3) return
  49. IERR=NIVEAU
  50. C - pour les ASSISTANTS
  51. ith=0
  52. if (nbesc.ne.0) call ooonth(ith)
  53. if (ith.ne.0) then
  54. if ( (IERR .GT. 0) .and. (ierper.lt.3) ) then
  55. MERRES = ierres
  56. SEGACT MERRES*MOD
  57. LOSIER = .TRUE.
  58. IASSER = ith
  59. SEGDES MERRES
  60. mescla = imescl(ith)
  61. jjjerr = ITYYP
  62. end if
  63. end if
  64. IERMAX=MAX0(IERR,IERMAX)
  65. C est on dans le mode erreur controle ??
  66. if (ierper.eq.4.and.ierr.ne.0) return
  67. C
  68. IF (NIVEAU.NE.0) THEN
  69. ILON=LONG(CHEN(1))
  70. WRITE (FMT(6:8),FMT='(I3)') ILON
  71. WRITE (IOIMP,FMT=FMT) CHEN(1)
  72. ENDIF
  73.  
  74. ILON=LONG(CHERR(1))
  75.  
  76. C Les Warnings ne sont pas affichés en OPTI ECHO -1
  77. IF ((IECHO .GT. -1) .OR. (ITYYP .GE. 0)) THEN
  78.  
  79. C Affichage du message d'erreur ici (Ligne 1)
  80. WRITE (FMT(6:8),FMT='(I3)') ILON
  81. WRITE (IOIMP,FMT=FMT) CHERR(1)
  82.  
  83. IF (NBL.GE.2) THEN
  84. C Affichage du message d'erreur ici (Ligne 2)
  85. ILON=LONG(CHERR(2))
  86. WRITE (FMT(6:8),FMT='(I3)') ILON
  87. WRITE (IOIMP,FMT=FMT) CHERR(2)
  88. ENDIF
  89. ENDIF
  90.  
  91. C CB : Entry dans depmac qui ne fait rien à ce jour (09/02/2015)
  92. C IF (IIMPI.NE.0.AND.ITYP.GE.1) CALL GIBTRB
  93.  
  94. 10 CONTINUE
  95.  
  96. C CB : Entry dans depmac qui ne fait rien à ce jour (09/02/2015)
  97. C if (ierr.gt.1) call GIBTRB
  98.  
  99. IF (IERMAX.GT.2) CALL FIN
  100. C cas erreur fatale
  101. IF (IERR.GT.0.AND.IERPER.EQ.1) CALL FIN
  102. C cas ou on ignore les erreurs
  103. IF (IERPER.GE.3) RETURN
  104. IF (IERR.GT.0) THEN
  105. MBERR=MAX(IERR,MBERR)
  106. IF (IOLEC.NE.IOTER) THEN
  107. CALL ERREU1(-1,CHLU,NIVEAU,NBL)
  108. IF (NBL.EQ.0) RETURN
  109. CALL ERREU2(CHLU,CHERR,NBL,ITYP)
  110. ILON=LONG(CHERR(1))
  111. WRITE (FMT(6:8),FMT='(I3)') ILON
  112. WRITE (IOIMP,FMT=FMT) CHERR(1)
  113. IOLEC=IOTER
  114. CALL GINT2
  115. ENDIF
  116. ENDIF
  117. END
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  

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