PRTSOC

SUBROUTINE 0 args, 31 executable stmts in /Users/john/Dropbox (Polyhedron Solutions)/Work/AERMOD/PRTSOC.f90,0000002,0000095
PRTSOC CALLed by EV_OUTPUT
CALLs to HEADER INT
Chng COMMON **NOTHING**
Uses COMMON **NOTHING**
Chng MODULE ISRC WORKID
Uses MODULE AXR AYR AZELEV AZFLAG EVAPER EVDATE EVGRP EVNAME EV_AVEVAL GRPAVE IDXEV IEVENT IGROUP IOUNIT ISRC NSRC NUMSRC SRCID WORKID
Uses Argument **NOTHING**
Chng Argument **NOTHING**
Uses PARAMETER **NOTHING**
Local Var HEADID I INGRP IOGRP MODNAM N NPAGE NROW WAVEV

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