incremental spatial search 3

Fortran binding:

C *** *** *** *** *** *** *** *** *** ***
      SUBROUTINE     PISS3 (SRPX, SRPY, SRPZ, SDIST, SPTHSZ, SPATH,
     1                      MCLIPF, SRCHCI, NFLN, NFLISX, NFLIS,
     1                      NFLESX, NFLES, IFLN, IFLISX, IFLIS,
     1                      IFLESX, IFLES, IPTHSZ,
     1                      ERRIND, FPTHSZ, FPATH)
      REAL           SRPX, SRPY, SRPZ
      REAL           SDIST
      INTEGER        SPTHSZ
      INTEGER        SPATH(2, SPTHSZ)
      INTEGER        MCLIPF
      INTEGER        SRCHCI
      INTEGER        NFLN
      INTEGER        NFLISX(NFLN)
      INTEGER        NFLIS(*)
      INTEGER        NFLESX(NFLN)
      INTEGER        NFLES(*)
      INTEGER        IFLN
      INTEGER        IFLISX(IFLN)
      INTEGER        IFLIS(*)
      INTEGER        IFLESX(IFLN)
      INTEGER        IFLES(*)
      INTEGER        IPTHSZ
C input / output
      INTEGER        ERRIND
      INTEGER        FPTHSZ
      INTEGER        FPATH(2, IPTHSZ)
      END

Related SRs: