programs,
2 total:

ARPSTRN  ,19
MRGTRN  ,16

subroutines,
13 total:

EDGEHAM  1
FILLHTRN30SEC  1,2
FILLHTRN3SEC  1,3
FILLHTRN5MIN  1,2
GET_30S_TRN  1,3
GET_TRN  1,3
LOOKUP_TRN  1
PLOT_TRN  1,2
RDTRNALL  2,4
READ_10X10_TOPO30S  1
READ_30S_TRN  1,4
READ_TRN  1,7
SMTH    1