SIGZ.f90#39
      INTEGER :: NDXZHE
#58
         CALL LOCATE(GRIDHT,1,MXGLVL,HE,NDXZHE)
#60
         CALL GINTRP(GRIDHT(NDXZHE),GRIDPT(NDXZHE),GRIDHT(NDXZHE+1),    &
#61
     &               GRIDPT(NDXZHE+1),HE,PTP)
SIGZPR.f90#27
      INTEGER :: NDXZHE
#45
         CALL LOCATE(GRIDHT,1,MXGLVL,ZARG,NDXZHE)
#47
         IF ( NDXZHE.GE.1 ) THEN
#48
            CALL GINTRP(GRIDHT(NDXZHE),GRIDPT(NDXZHE),GRIDHT(NDXZHE+1), &
#49
     &                  GRIDPT(NDXZHE+1),ZARG,PTP)

HyperKWIC - Version 1.00DD executed at 20:00 on  1 Mar 2018  | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use