%N mpsubmi %F $MIR/src/subs/mp.for
%D Subtract an integer from a multi-precision integer.
%P rjs
%B
        subroutine mpSubmi(v,d)

        implicit none
        integer v(3),d

  Subtract two numbers.
