ASNGRP.f90#22      INTEGER IN , IL , IH
#31      CALL SETIDG(INID,IID1,IN,IID2)
#37     &     (IN.GE.IL .AND. IN.LE.IH) .AND.                              &
EV_SETUP.f90#44      CHARACTER(LEN=2) , INTENT(IN) :: INPFLD
#45      CHARACTER(LEN=2) , INTENT(IN) , DIMENSION(:) :: PATHWY
#46      INTEGER , INTENT(IN) :: IPN
EXPATH.f90#27      CHARACTER(LEN=2) , INTENT(IN) :: INPFLD
#28      CHARACTER(LEN=2) , INTENT(IN) , DIMENSION(:) :: PATHWY
#29      INTEGER , INTENT(IN) :: IPN
FSPLIT.f90#34      LOGICAL LFLAG , MEND , IN
#43      IN = .FALSE.
#50            IN = .TRUE.                                                 !   1422
#65         ELSEIF ( IN .AND. CHK.EQ.' ' ) THEN
INCLUD.f90#36      CHARACTER(LEN=2) , INTENT(IN) :: INPFLD
#37      CHARACTER(LEN=2) , INTENT(IN) , DIMENSION(:) :: PATHWY
#38      INTEGER , INTENT(IN) :: IPN
NUMRISE.f90#409         DO IN = NBEG , NEND
#411            XBB = XT(IN-1) - XBADJ                                      !2994824
#413            YB = YT(IN-1) - YBADJ
#414            ZB = ZT(IN-1)
#423            XT(IN) = XT(IN-1) + DX15R                                   !2994824
#424            YT(IN) = YFIN
#425            ZT(IN) = AMAX1(ZMIN,ZT(IN-1)+DZDX*DX15R)
#426            RT(IN) = RFIN
#435                  X = XT(IN)
#436                  Z = ZT(IN) - ZCUMUL
#451     &                             ZT(IN)
#481            DO IN = 1 , NTR - 1
#482               JN = IN*DELN                                             !      0
#483               XTR(IN) = XT(JN)
#484               YTR(IN) = YT(JN)
#485               ZTR(IN) = ZT(JN)
#486               RTR(IN) = RT(JN)
#492            DO IN = 1 , NTR - 1
#493               RN = RN + 1.0 + (IN-1)*DELN                              ! 298312
#495               XTR(IN) = XT(JN)
#496               YTR(IN) = YT(JN)
#497               ZTR(IN) = ZT(JN)
#498               RTR(IN) = RT(JN)
#503         DO IN = 1 , NN                                                 !      0
#504            XTR(IN) = XT(IN)                                            !      0
#505            YTR(IN) = YT(IN)
#506            ZTR(IN) = ZT(IN)
#507            RTR(IN) = RT(IN)
PREINCLUD.f90#35      CHARACTER(LEN=2) , INTENT(IN) :: INPFLD
#36      CHARACTER(LEN=2) , INTENT(IN) , DIMENSION(:) :: PATHWY
#37      INTEGER , INTENT(IN) :: IPN
PRESET.f90#37      CHARACTER(LEN=2) , INTENT(IN) :: INPFLD
#38      CHARACTER(LEN=2) , INTENT(IN) , DIMENSION(:) :: PATHWY
#39      INTEGER , INTENT(IN) :: IPN
SETUP.f90#50      CHARACTER(LEN=2) , INTENT(IN) :: INPFLD
#51      CHARACTER(LEN=2) , INTENT(IN) , DIMENSION(:) :: PATHWY
#52      INTEGER , INTENT(IN) :: IPN
STODBL.f90#31      LOGICAL MEND , IN , NMARK , PMARK , DMARK , MMARK , EMARK
#38      IN = .FALSE.
#52            IN = .TRUE.                                                 !      0
#94         ELSEIF ( IN .AND. CHK.EQ.' ' ) THEN
STONUM.f90#26      LOGICAL MEND , IN , NMARK , PMARK , DMARK , MMARK , EMARK
#33      IN = .FALSE.
#47            IN = .TRUE.                                                 !  11922
#89         ELSEIF ( IN .AND. CHK.EQ.' ' ) THEN
WAKE_DFSN.f90#435               DO IN = 2 , NWAK - 1
#436                  JN = IN*DELN + NWS                                    !   7200
#437                  XWAK(IN) = DIST(JN)
#438                  SZWAK(IN) = ASIGZ(JN)
#439                  SYWAK(IN) = ASIGY(JN)
#440                  DRWAK(IN) = RTPIBY2*DSZ(JN)
#446               DO IN = 2 , NWAK - 1
#447                  RN = RN + ONE + (IN-1)*DELN                           ! 248352
#449                  XWAK(IN) = DIST(JN)
#450                  SZWAK(IN) = ASIGZ(JN)
#451                  SYWAK(IN) = ASIGY(JN)
#452                  DRWAK(IN) = RTPIBY2*DSZ(JN)
#458            DO IN = 2 , NPW
#459               INP = IN + NWS                                           !   1856
#460               XWAK(IN) = DIST(INP)
#461               SZWAK(IN) = ASIGZ(INP)
#462               SYWAK(IN) = ASIGY(INP)
#463               DRWAK(IN) = RTPIBY2*DSZ(INP)
#485               DO IN = 2 , NCAV - 1
#486                  JN = IN*DELN + NCS                                    !   5568
#487                  XCAV(IN) = DIST(JN)
#488                  SZCAV(IN) = CSIGZ(JN)
#489                  SYCAV(IN) = CSIGY(JN)
#495               DO IN = 2 , NCAV - 1
#496                  RN = RN + ONE + (IN-1)*DELN                           ! 215520
#498                  XCAV(IN) = DIST(JN)
#499                  SZCAV(IN) = CSIGZ(JN)
#500                  SYCAV(IN) = CSIGY(JN)
#506            DO IN = 2 , NPC
#507               INP = IN + NCS                                           !   3480
#508               XCAV(IN) = DIST(INP)
#509               SZCAV(IN) = CSIGZ(INP)
#510               SYCAV(IN) = CSIGY(INP)
WAKE_DFSN2.f90#445               DO IN = 2 , NWAK - 1
#446                  JN = IN*DELN + NWS                                    !   7200
#447                  XWAK(IN) = DIST(JN)
#448                  SZWAK(IN) = ASIGZ(JN)
#449                  SYWAK(IN) = ASIGY(JN)
#450                  DRWAK(IN) = RTPIBY2*DSZ(JN)
#456               DO IN = 2 , NWAK - 1
#457                  RN = RN + ONE + (IN-1)*DELN                           ! 248352
#459                  XWAK(IN) = DIST(JN)
#460                  SZWAK(IN) = ASIGZ(JN)
#461                  SYWAK(IN) = ASIGY(JN)
#462                  DRWAK(IN) = RTPIBY2*DSZ(JN)
#468            DO IN = 2 , NPW
#469               INP = IN + NWS                                           !   1856
#470               XWAK(IN) = DIST(INP)
#471               SZWAK(IN) = ASIGZ(INP)
#472               SYWAK(IN) = ASIGY(INP)
#473               DRWAK(IN) = RTPIBY2*DSZ(INP)
#495               DO IN = 2 , NCAV - 1
#496                  JN = IN*DELN + NCS                                    !   5568
#497                  XCAV(IN) = DIST(JN)
#498                  SZCAV(IN) = CSIGZ(JN)
#499                  SYCAV(IN) = CSIGY(JN)
#505               DO IN = 2 , NCAV - 1
#506                  RN = RN + ONE + (IN-1)*DELN                           ! 215520
#508                  XCAV(IN) = DIST(JN)
#509                  SZCAV(IN) = CSIGZ(JN)
#510                  SYCAV(IN) = CSIGY(JN)
#516            DO IN = 2 , NPC
#517               INP = IN + NCS                                           !   3480
#518               XCAV(IN) = DIST(INP)
#519               SZCAV(IN) = CSIGZ(INP)
#520               SYCAV(IN) = CSIGY(INP)


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