Télécharger erreur.eso

Retour à la liste

Numérotation des lignes :

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

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