POSITION

SUBROUTINE 4 args, 46 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/POSITION.f90,0000002,0000124
POSITION CALLed by CAV_SRC NUMRISE PRMCALC WAKE_DBG
CALLs to ABS SQRT WAKE_DIM
Chng COMMON **NOTHING**
Uses COMMON /WAKEDAT/ HB HR RB WB XLB XLC XLR
Chng MODULE **NOTHING**
Uses MODULE **NOTHING**
Uses Argument IPOSITN X Y Z
Chng Argument IPOSITN
Uses PARAMETER MXENT MXNTR MXNZ
Local Var HALF IPOSY IPOSZ RBY2 RBY3 SKIN THIRD WBY2 XTEST YCAV YPOS YTEST YWAKE ZCAV ZERO ZTEST ZWAKE

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