PRMCALC.f90#37
      REAL :: DHPOUT , SYOUT , SZOUT , FYOUT
#150
         CALL WAKE_XSIG(X,HS,DHPOUT,NOBID,SZOUT,SYOUT,SZCAV,SYCAV)
#152
         SZ = SZOUT
PRM_F2INT.f90#30
      REAL :: DHPOUT , SYOUT , SZOUT , SYCAV , SZCAV
#50
      CALL WAKE_XSIG(XI,HS,DHPOUT,NOBID,SZOUT,SYOUT,SZCAV,SYCAV)
#52
      SZ = SZOUT
SIGZPR.f90#2
      SUBROUTINE SIGZPR(XARG,ZARG,SZOUT)
#29
     &        ZARG , SZAD , SZOUT
#80
         SZOUT = SZAS                                                   ! 164418
#95
         SZOUT = SQRT(SZAD*SZAD+SZSURF*SZSURF)

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