UNSTU

R*4 FUNCT 7 args, 6 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/UNSTU.f90,0000003,0000075
UNSTU CALLed by REFWS
CALLs to ALOG ATAN
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE **NOTHING**
Uses MODULE **NOTHING**
Uses Argument OBLEN USTR VALK VALPI Z Z0
Chng Argument **NOTHING**
Uses PARAMETER **NOTHING**
Local Var PSIM PSIMZ0 X0 XZ0

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