Télécharger erreur.eso

Retour à la liste

Numérotation des lignes :

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

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