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    9,3
EXTYS   5,3
EXTYV   2,3
FLXINT  1,2
GRDXY   1,10
HORDIF1  1,6
KDPFND  3,2
LCBAS   2,1
LCDBAS  2,1
OMCALC  2,3
PDELB0  2,2
PHCS    1,3
PLEVS0  9,2
QMASSA  1,3
QMASSD  2,3
REORDP  1,4
SCM0    ,2
XQMASS  1,4