WAKE_FQC

SUBROUTINE 5 args, 42 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/WAKE_FQC.f90,0000002,0000110
WAKE_FQC CALLed by NUMRISE
CALLs to ABS AMAX1 AMIN1 CAVITY_HT FLOAT FRGAUSS INT MAX NUMGRAD WAKE_XSIG
Chng COMMON /WAKEDAT/ FQCAV
Uses COMMON /WAKEDAT/ FQCAV XBADJ XLB XLR YBADJ
Chng MODULE **NOTHING**
Uses MODULE **NOTHING**
Uses Argument LDB NTR XBI XTR ZTR
Chng Argument **NOTHING**
Uses PARAMETER IO6 MXENT MXNTR MXNZ
Local Var FQ85 FRACT FRACTY FRACTZ FRACTZ0 FZ FZMAX IS NSTEP SY SYC SZ SZC X XB XB85 XBEND XBSTART XEND XMAX XRANGE XSTEP YBA YCAV ZCAV ZPLM

GXCHK Version 7.50ME executed at 21:26 on 17 Mar 2021