Sources Esope | Cast3M

erreur
C ERREUR    SOURCE    CB215821  24/07/17    21:15:04     11961          
C
C   EDITION DES MESSAGES D'ERREURS
C
      SUBROUTINE ERREUR(ITYYP)
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
 
-INC PPARAM
-INC CCOPTIO
-INC CCNOYAU
-INC SMBLOC
-INC CCASSIS
 
      EXTERNAL LONG
      CHARACTER*10 FMT
      CHARACTER*1000 CHERR(2),CHEN(2)
      CHARACTER*1000 CHLU(2)
 
      DATA FMT/'(1X,A...) '/
 
 
C  ETAIT-ON DEJA EN ERREUR
C     On positionne JERR au MAXI entre l'erreur par ASSISTANT et l'erreur GLOBALE
      jerr=MAX(IERR,IERGLB)
 
C
C  EN TETE DE MESSAGE D'ERREUR
      ITYP = ITYYP
C     NIVEAU=0
      CALL ERREU1(0,CHLU,NIVEAU,NBL)
* on n'emet qu'un seul message d'erreur avant nouvelle instruction
      IF(jerr .NE. 0.and.niveau.GT.0) RETURN
      IF (NBL.EQ.0) GOTO 10
      CALL ERREU2(CHLU,CHEN,NBL,ITYP)
C
C  DANS LE CAS DE MESSAGE ISSU DE LIRE ON REGARDE SI MESLIR A ETE
C  UTILISE.
C
      ITYPAN=ITYP
      IF( ITYP.EQ.37) THEN
         IF( MESERR.NE.0) ITYP= MESERR
         MESERR=0
      ENDIF
 
C  MESSAGE D'ERREUR
      CALL ERREU1(ITYP,CHLU,NIVEAU,NBL)
* on n'emet qu'un seul message d'erreur avant nouvelle instruction
      IF(jerr .NE. 0.and.niveau.GT.0) RETURN
      IF(ITYPAN.EQ.37) NIVEAU=2
      IF (NBL.EQ.0) GOTO 10
      CALL ERREU2(CHLU,CHERR,NBL,ITYP)
C
      if (niveau.gt.3) return
      IERR  =NIVEAU
      IERGLB=NIVEAU
 
C -   pour les ASSISTANTS
        ith=0
          if (nbesc.ne.0) ith=oothrd
        if (ith.ne.0) then
          if ( (IERR .GT. 0) .and. (ierper.lt.3) ) then
            MERRES = ierres
            SEGACT MERRES*MOD
            LOSIER = .TRUE.
            IASSER = ith
            SEGDES MERRES
            mescla = imescl(ith)
            jjjerr = ITYYP
          end if
        end if
      IERMAX=MAX0(IERR,IERMAX)
C  est on dans le mode erreur controle ??
      if (ierper.eq.4.and.ierr.ne.0) return
C
      IF (NIVEAU.NE.0) THEN
        ILON=LONG(CHEN(1))
        WRITE (FMT(6:8),FMT='(I3)') ILON
        WRITE (IOIMP,FMT=FMT) CHEN(1)
      ENDIF
 
      ILON=LONG(CHERR(1))
 
C     Les Warnings ne sont pas affichés en OPTI ECHO -1
      IF ((IECHO .GT. -1) .OR. (ITYYP .GE. 0)) THEN
 
C       Affichage du message d'erreur ici (Ligne 1)
        WRITE (FMT(6:8),FMT='(I3)') ILON
        WRITE (IOIMP,FMT=FMT) CHERR(1)
 
        IF (NBL.GE.2) THEN
C         Affichage du message d'erreur ici (Ligne 2)
          ILON=LONG(CHERR(2))
          WRITE (FMT(6:8),FMT='(I3)') ILON
          WRITE (IOIMP,FMT=FMT) CHERR(2)
        ENDIF
      ENDIF
 
C     CB : Entry dans depmac qui ne fait rien à ce jour (09/02/2015)
C      IF (IIMPI.NE.0.AND.ITYP.GE.1) CALL GIBTRB
 
  10  CONTINUE
 
C     CB : Entry dans depmac qui ne fait rien à ce jour (09/02/2015)
C      if (ierr.gt.1) call GIBTRB
 
      IF (IERMAX.GT.2.AND.NIVEAU.GT.0) CALL FIN
C  cas erreur fatale
      IF (IERR.GT.0.AND.IERPER.EQ.1.AND.NIVEAU.GT.0) CALL FIN
C  cas ou on ignore les erreurs
      IF (IERPER.GE.3) RETURN
      IF (IERR.GT.0) THEN
       MBERR=MAX(IERR,MBERR)
       IF (IOLEC.NE.IOTER) THEN
        CALL ERREU1(-1,CHLU,NIVEAU,NBL)
        IF (NBL.EQ.0) RETURN
        CALL ERREU2(CHLU,CHERR,NBL,ITYP)
        ILON=LONG(CHERR(1))
        WRITE (FMT(6:8),FMT='(I3)') ILON
        WRITE (IOIMP,FMT=FMT) CHERR(1)
        IOLEC=IOTER
        CALL GINT2
       ENDIF
      ENDIF
      END