programs,
3 total:

ARPSENSBC  ,6
ARPSENSCV  ,115
ARPSENSIC  ,26

subroutines,
31 total:

A2PLT   26
ARY2DCV  24
CALCAPE  1,4
CALENDER  1
CAPE_NCEP  1,1
CLLMC   1
CPTCA   2
CPTCWTRA  2
D2INTRPA  1
DHSLINI  1
DIFEBC  2,11
ENSWRTALL  1,30
ENSWRTHD  1,3
ENSWRTQ  29
FILZERO  1
IFILZERO  
NEWMAP  1,4
PINTP   15
PPTSTO  2
PRTFIELD  2,21
PSFSL   1
PTQV2M  1,5
SECTHRZA  3
SPLINE  3
SUBTRBC  11
SUBTRPRT  21
TABLE1  1,2
TABLEQ  1,1
TEMPER  6
TTBLEX  2
VRTCALC  3,1