WAKE_DIM.f90#38      XBYR = X/R                                                        ! 24347K
#39      XBYR3RD = XBYR**THIRD
#43      DXBYR = XBYR - XPBYR
#47      IF ( XBYR.GT.ZERO ) HWAKE = CWKHT*R*DXBYR**THIRD
#51      IF ( XBYR.GT.ZERO ) WWAKE = HALF*W + (THIRD*R)*XBYR3RD
WAKE_XA.f90#79      XBYR = L/RINP + XBYRMAX
#80      XAZ = RINP*AMIN1(XBYR,XAZ)
#81      XAY = RINP*AMIN1(XBYR,XAY)


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