subroutines,
25 total:

BANDIJ  2,2
BASDY   1,3
BASDZ   2,2
BASIY   1,3
DIFCOR  1,3
ENGY_TDIF  2,2
ENGY_TE  3,3
EXTX    3,3
EXTYS   1,3
EXTYV   1,3
FLXINT  1,2
GRDXY   1,10
HORDIF1  1,6
KDPFND  2,2
LCBAS   1,1
LCDBAS  2,1
OMCALC  2,3
PDELB0  2,2
PHCS    1,3
PLEVS0  11,2
QMASSA  1,3
QMASSD  2,3
REORDP  1,4
SCM0    1,2
XQMASS  1,4