WAKE_XA.f90#65
      FARIYT = AMAX1(AMBIY,AFAC*FARIY)
#75
      XAY = X0BYR + (DUA_UA+(WFY*WIY0-FARIY*(ONE-DUA_UA))/(FARIYT-FARIY)&
#86
         WRITE (IOUNIT,*) 'farizt, fariyt = ' , FARIZT , FARIYT
WAKE_XA2.f90#61
      FARIYT = AMAX1(AMBIY,AFAC*FARIY)
#71
      XAY = X0BYR + (DUA_UA+(WFY*WIY0-FARIY*(ONE-DUA_UA))/(FARIYT-FARIY)&

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