isrchfltpv.body.h File Reference

Go to the source code of this file.

Functions
!define ISRCHFLTPV_N !define	ISRCHFLTPV_ARRAY (I) !define ISRCHFLTPV_INC !define ISRCHFLTPV_TARGET !define ISRCHFLTPV_NBITER !define ISRCHFLTPV_RESULT ISRCHFLTPV_RESULT
!define ISRCHFLTPV_N !define ISRCHFLTPV_N ISRCHFLTPV_NBITER	IF (ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I-1)).LT.ISRCHFLTPV_TARGET) THEN IF(ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I)).LT.ISRCHFLTPV_TARGET) THEN IF(ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I+1)).LT.ISRCHFLTPV_TARGET) THEN IF(ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I+2)).LT.ISRCHFLTPV_TARGET) THEN IF(ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I+3)).LT.ISRCHFLTPV_TARGET) THEN IF(ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I+4)).LT.ISRCHFLTPV_TARGET) THEN IF(ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I+5)).LT.ISRCHFLTPV_TARGET) THEN IF(ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I+6)).LT.ISRCHFLTPV_TARGET) THEN IF(ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I+7)).LT.ISRCHFLTPV_TARGET) THEN ISRCHFLTPV_RESULT
!define ISRCHFLTPV_N !define ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N	IF (ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I-1))&&.LT.ISRCHFLTPV_TARGET) THEN ISRCHFLTPV_RESULT
!define ISRCHFLTPV_N !define ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER	IF (ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I-1))&&.LT.ISRCHFLTPV_TARGET) THEN IF(ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I)) &&.LT.ISRCHFLTPV_TARGET) THEN IF(ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I+1)) &&.LT.ISRCHFLTPV_TARGET) THEN IF(ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I+2)) &&.LT.ISRCHFLTPV_TARGET) THEN IF(ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I+3)) &&.LT.ISRCHFLTPV_TARGET) THEN IF(ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I+4)) &&.LT.ISRCHFLTPV_TARGET) THEN ISRCHFLTPV_RESULT

Function Documentation

IF() [1/3]

!define ISRCHFLTPV_N !define ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER IF

(

ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I-1)).LT.

ISRCHFLTPV_TARGET

)

Initial value:

=ISRCHFLTPV_I
             EXIT
          ENDIF
          ENDIF
          ENDIF
          ENDIF
          ENDIF
          ENDIF
          ENDIF
        ENDDO

        IF (ISRCHFLTPV_RESULT .LT. 0) THEN
          DO ISRCHFLTPV_I=ISRCHFLTPV_N-ISRCHFLTPV_NBITER+1

IF() [2/3]

!define ISRCHFLTPV_N !define ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N IF

(

ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I-1))&&.LT.

ISRCHFLTPV_TARGET

)

Initial value:

=ISRCHFLTPV_I
              EXIT
            ENDIF
          ENDDO
        ENDIF

        ELSEIF (ISRCHFLTPV_NBITER.EQ.5) THEN

        DO ISRCHFLTPV_I=1

IF() [3/3]

!define ISRCHFLTPV_N !define ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER ISRCHFLTPV_N ISRCHFLTPV_N ISRCHFLTPV_NBITER IF

(

ISRCHFLTPV_ARRAY(1+ISRCHFLTPV_INC *(ISRCHFLTPV_I-1))&&.LT.

ISRCHFLTPV_TARGET

)

&

Initial value:

=ISRCHFLTPV_I
            EXIT
          ENDIF
          ENDIF
          ENDIF
          ENDIF
          ENDIF
        ENDDO

        IF (ISRCHFLTPV_RESULT .LT. 0) THEN
          DO ISRCHFLTPV_I=ISRCHFLTPV_N-ISRCHFLTPV_NBITER+1

ISRCHFLTPV_ARRAY()

!define ISRCHFLTPV_N !define ISRCHFLTPV_ARRAY

(

I

)