Sources Esope | Cast3M

ooovp1
C OOOVP1    SOURCE    PV090527  26/04/24    08:23:27     12524          
      LOGICAL FUNCTION OOOVP1 (PSEG)
C--------------------------------------------------------------------
C
C              CONTROLES DE VRAISSEMBLANCE DU POINTEUR
C
C     PSEG     POINTEUR DESIGNANT LE SEGMENT
C
C     REND UN LOGIQUE : VRAI = SEGMENT PLAUSIBLE
C                       FAUX + SEGMENT IMPROBABLE
C
C--------------------------------------------------------------------
C
%INC IOOADR
%INC IOOADZ
%INC IOODES
%INC IOOSGM
%INC IOOWCOM
C
      POINTEUR PSEG.PSEG
 
      IF (PSEG.LT.MZIDEX)                               GO TO 900
      IF (PSEG.GT.MZIDEY)                               GO TO 900
      IF (MOD(PSEG-MZIDE1,MDLDE).NE.0)                  GO TO 900
      IF (MDIDS(PSEG).LT.0)                             GO TO 900
 
C       CONTROLES DE VRAISSEMBLANCE DU  TYPE SEGMENT
 
      ITYP =MDTYP(PSEG)
      IF (ITYP.LT.MDMINTYP .OR. ITYP.GT.MDMAXTYP)       GO TO 900
      IF (MDCAT(ITYP).EQ.MDMARK)                        GO TO 900
      IF (MDCAT(ITYP).EQ.MDFIXE)                        GO TO 900
 
      IF (.not.thread.and.OOV(1).NE.0)                  GO TO 900
      ooovp1=.true.
                                                        RETURN
C-----------------------------------------------------------------------
C
C                        segment invalide
C
C
 900  ooovp1=.false.
      END