Télécharger erreur.eso

Retour à la liste

Numérotation des lignes :

erreur
  1. C ERREUR SOURCE CB215821 24/07/17 21:15:04 11961
  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.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. -INC CCNOYAU
  14. -INC SMBLOC
  15. -INC CCASSIS
  16.  
  17. EXTERNAL LONG
  18. CHARACTER*10 FMT
  19. CHARACTER*1000 CHERR(2),CHEN(2)
  20. CHARACTER*1000 CHLU(2)
  21.  
  22. DATA FMT/'(1X,A...) '/
  23.  
  24.  
  25. C ETAIT-ON DEJA EN ERREUR
  26. C On positionne JERR au MAXI entre l'erreur par ASSISTANT et l'erreur GLOBALE
  27. jerr=MAX(IERR,IERGLB)
  28.  
  29. C
  30. C EN TETE DE MESSAGE D'ERREUR
  31. ITYP = ITYYP
  32. C NIVEAU=0
  33. CALL ERREU1(0,CHLU,NIVEAU,NBL)
  34. * on n'emet qu'un seul message d'erreur avant nouvelle instruction
  35. IF(jerr .NE. 0.and.niveau.GT.0) RETURN
  36. IF (NBL.EQ.0) GOTO 10
  37. CALL ERREU2(CHLU,CHEN,NBL,ITYP)
  38. C
  39. C DANS LE CAS DE MESSAGE ISSU DE LIRE ON REGARDE SI MESLIR A ETE
  40. C UTILISE.
  41. C
  42. ITYPAN=ITYP
  43. IF( ITYP.EQ.37) THEN
  44. IF( MESERR.NE.0) ITYP= MESERR
  45. MESERR=0
  46. ENDIF
  47.  
  48. C MESSAGE D'ERREUR
  49. CALL ERREU1(ITYP,CHLU,NIVEAU,NBL)
  50. * on n'emet qu'un seul message d'erreur avant nouvelle instruction
  51. IF(jerr .NE. 0.and.niveau.GT.0) RETURN
  52. IF(ITYPAN.EQ.37) NIVEAU=2
  53. IF (NBL.EQ.0) GOTO 10
  54. CALL ERREU2(CHLU,CHERR,NBL,ITYP)
  55. C
  56. if (niveau.gt.3) return
  57. IERR =NIVEAU
  58. IERGLB=NIVEAU
  59.  
  60. C - pour les ASSISTANTS
  61. ith=0
  62. if (nbesc.ne.0) ith=oothrd
  63. if (ith.ne.0) then
  64. if ( (IERR .GT. 0) .and. (ierper.lt.3) ) then
  65. MERRES = ierres
  66. SEGACT MERRES*MOD
  67. LOSIER = .TRUE.
  68. IASSER = ith
  69. SEGDES MERRES
  70. mescla = imescl(ith)
  71. jjjerr = ITYYP
  72. end if
  73. end if
  74. IERMAX=MAX0(IERR,IERMAX)
  75. C est on dans le mode erreur controle ??
  76. if (ierper.eq.4.and.ierr.ne.0) return
  77. C
  78. IF (NIVEAU.NE.0) THEN
  79. ILON=LONG(CHEN(1))
  80. WRITE (FMT(6:8),FMT='(I3)') ILON
  81. WRITE (IOIMP,FMT=FMT) CHEN(1)
  82. ENDIF
  83.  
  84. ILON=LONG(CHERR(1))
  85.  
  86. C Les Warnings ne sont pas affichés en OPTI ECHO -1
  87. IF ((IECHO .GT. -1) .OR. (ITYYP .GE. 0)) THEN
  88.  
  89. C Affichage du message d'erreur ici (Ligne 1)
  90. WRITE (FMT(6:8),FMT='(I3)') ILON
  91. WRITE (IOIMP,FMT=FMT) CHERR(1)
  92.  
  93. IF (NBL.GE.2) THEN
  94. C Affichage du message d'erreur ici (Ligne 2)
  95. ILON=LONG(CHERR(2))
  96. WRITE (FMT(6:8),FMT='(I3)') ILON
  97. WRITE (IOIMP,FMT=FMT) CHERR(2)
  98. ENDIF
  99. ENDIF
  100.  
  101. C CB : Entry dans depmac qui ne fait rien à ce jour (09/02/2015)
  102. C IF (IIMPI.NE.0.AND.ITYP.GE.1) CALL GIBTRB
  103.  
  104. 10 CONTINUE
  105.  
  106. C CB : Entry dans depmac qui ne fait rien à ce jour (09/02/2015)
  107. C if (ierr.gt.1) call GIBTRB
  108.  
  109. IF (IERMAX.GT.2.AND.NIVEAU.GT.0) CALL FIN
  110. C cas erreur fatale
  111. IF (IERR.GT.0.AND.IERPER.EQ.1.AND.NIVEAU.GT.0) CALL FIN
  112. C cas ou on ignore les erreurs
  113. IF (IERPER.GE.3) RETURN
  114. IF (IERR.GT.0) THEN
  115. MBERR=MAX(IERR,MBERR)
  116. IF (IOLEC.NE.IOTER) THEN
  117. CALL ERREU1(-1,CHLU,NIVEAU,NBL)
  118. IF (NBL.EQ.0) RETURN
  119. CALL ERREU2(CHLU,CHERR,NBL,ITYP)
  120. ILON=LONG(CHERR(1))
  121. WRITE (FMT(6:8),FMT='(I3)') ILON
  122. WRITE (IOIMP,FMT=FMT) CHERR(1)
  123. IOLEC=IOTER
  124. CALL GINT2
  125. ENDIF
  126. ENDIF
  127. END
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  

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