Sources Esope | Cast3M

oooerr
C OOOERR    SOURCE    PV090527  26/04/24    08:23:07     12524          
      SUBROUTINE OOOERR(NN,NF,HERROR)
C-------------------------------------------------------------------
C
C                   ECRITURE DES MESSAGES D'ERREUR
C
C      NN=VARIABLE
C      NF=COMPOSITION DU MESSAGE
C                 AVEC DUMP     :-1,0,1
C                 SANS DUMP     : 2,3,4
C      HERROR    LIBELLE ERREUR (CONSTANTE CARACTERE)
C
C PROGRAMMEUR : MOUGIN
C       MODIF : 27/01/89    LIEES A LA VERSION  OOW..
C       MODIF : 15/2/90  /A/A  -> /A,/,A  H_MULLEMAN
C-------------------------------------------------------------------
C
%INC IOODMP
%INC IOOUNIT
%INC IOOWCOM
C
      LOGICAL       OOOVP1
      CHARACTER*(*) HERROR
      CHARACTER* 8  HPRM
 
C     On met un SEGMENT pour avoir OOTHRD (le traducteur s'en charge)
      SEGMENT ISEG(0)
 
      WRITE (JLST,'(A,A)') ' --- ',HERROR
      CALL OOOMES(NN,'GEMAT ERROR       ')
C
C******  DUMP ZONES ESOPE
C
 400  IF (TESOOO) CALL OOOWER ('DANS OOOERR')
      IF (NF.LE.1) THEN
C          DEBUG DE LA ZONE ESOPE
         CALL OOOABE (IERR)
         CALL OOOPRM (LRET,'DUMP',HPRM,LPRM,IDMP)
         IF (LRET.EQ.2) THEN
            IDMP=DMP-2
         ELSE
            IDMP=STAT-2
         ENDIF
         CALL OOODMP (IDMP)
C  ARRET DES THREADS
C***  CALL OOOTHS
C
      ENDIF
                                                      RETURN
 2100 FORMAT (' --- ',I22,5X,A)
 2200 FORMAT (' --- ',11X,5X,A)
      END