CBLPR3.f90#46
         DHP3 = HEDHH*(ZI-HSP)                                          !  17138
#48
         DHP3 = 0.75*(ZI-HSP)*HEDHH + 0.5*(ZI-HSP)                      ! 191656
MAIN1.f90#648
      REAL :: HE , HSP , HEFLAT , HTER , HEMWAK , HEDHH , ZB , ZM ,     &
PENFCT.f90#62
         HEDHH = (17.576*PSUBS+0.296296)**0.333333
#65
         IF ( HEDHH.LT.0.666667 ) THEN
#68
         ELSEIF ( HEDHH.GT.2.0 ) THEN
#72
            PPF = 1.5 - (1.0/HEDHH)                                     !    878

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