VRTCBL

SUBROUTINE 5 args, 50 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/VRTCBL.f90,0000003,0000146
VRTCBL CALLed by ACPLUME CPLUME F2INT
CALLs to ABS EXP MAX
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE FSUBZ
Uses MODULE EXPLIM LAMDA1 LAMDA2 ZI ZR
Uses Argument FACT HE1 HE2 SZ1 SZ2
Chng Argument **NOTHING**
Uses PARAMETER SRT2PI
Local Var A1 A2 A3 A4 HE1TMP HE2TMP HEARG1 HEARG2 I MODNAM SUM T1 T2 TERM TWOIZI V ZITMP

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