Sources Esope | Cast3M

ooower
C OOOWER    SOURCE    PV090527  26/04/24    08:23:30     12524          
      SUBROUTINE OOOWER (HREPER)
C----------------------------------------------------------------------
C
C                     FACILITE L'APPEL A OOOVER
C
C       HREPER   MESSAGE DE REPERAGE
C
C PROGRAMMEUR : MOUGIN
C       CREE  : 03/02/89     POUR MISE AU POINT OOOW..
C
C-----------------------------------------------------------------------
C
%INC IOOUNIT
%INC IOOWCOM
      CHARACTER*(*) HREPER
 
      IF     (HREPER.EQ.'OOODEB')                         THEN
        TESOOO = .TRUE.
      ELSEIF (HREPER.EQ.'OOOFIN')                         THEN
        TESOOO = .FALSE.
      ENDIF
      IF (TESOOO) WRITE(JLST,*) '--- OOOWER : ',HREPER
      CALL OOOVER(JLST,HREPER,0,NBERR)
 
      IF (NBERR.GT.0)                                     THEN
        NN=0
        CALL OOOMES(NN,'GEMAT VERIF       ')
 
        CALL OOOVER(JLST,HREPER,1,NBERR)
%IF CRAY,CFT77
        CALL ABORT
%ELSE
                                                          STOP 16
%ENDIF
      ENDIF
      END