BROWSER/doc_surf81/isrchfge_8body_8h_source.html

 !define ISRCHFGE_RESULT
 !define ISRCHFGE_N
 !define ISRCHFGE_INC
 !define ISRCHFGE_ARRAY(I)
 !define ISRCHFGE_TARGET
       ISRCHFGE_RESULT=-1
       IF (ISRCHFGE_N.LE.0) THEN
         ISRCHFGE_RESULT=0
       ELSE
         DO ISRCHFGE_I=1,ISRCHFGE_N
           IF ( ISRCHFGE_ARRAY(1+ISRCHFGE_INC*(ISRCHFGE_I-1)).GE.ISRCHFGE_TARGET ) THEN
             ISRCHFGE_RESULT=ISRCHFGE_I
             EXIT
           ENDIF
         ENDDO
         IF (ISRCHFGE_RESULT.LT.0) THEN
         ISRCHFGE_RESULT=ISRCHFGE_N+1
         ENDIF
       ENDIF
THEN

IF
!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

ISRCHFGE_ARRAY
!define ISRCHFGE_RESULT !define ISRCHFGE_N !define ISRCHFGE_INC !define ISRCHFGE_ARRAY(I) !define ISRCHFGE_TARGET ISRCHFGE_RESULT