programs,
4 total:

BOX     ,13
CUBIT   
DUBL    ,13
GRIDMAKER  ,6

subroutines,
25 total:

ABCOEF  1
ADVECT  1
ADVECT3  1
BCUCOF  1
BICUB   2,1
CHANGE  2
DIFFUS  1
FILTW   1
GRID    1
GRIDINIT  2
GRIDPREP  1
INCMP   1,2
INIT    1
INTERPOLATE  12
INTERPOLATZ  1
ITRPGR  1,2
MAKEBNDS  1
MAKETRNS  1,1
MARCH   1
NEWWF   1,1
OLDGRID  
PFORCE  2
PSTUFF  1
SLICE   
SPEED   1

functions,
6 total:

CLIP    
RM      
RMIN    1
RMLL    
RMP     
RMPLL