programs,
2 total:

ARPSDIFF  ,38
ARPSRAINDIFF  ,9

subroutines,
3 total:

DIFFIELD  1,28
INTSCLRS  1,34
SUBTR   28