CTHETA

SUBROUTINE 3 args, 16 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/CTHETA.f90,0000003,0000044
CTHETA CALLed by LWIND
CALLs to ABS
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE **NOTHING**
Uses MODULE **NOTHING**
Uses Argument AFVIN ALFIN
Chng Argument THOUT
Uses PARAMETER **NOTHING**
Local Var THETA

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