%N mpdivmi %F $MIR/src/subs/mp.for
%D Divide a multi-precision integer by an integer.
%P rjs
%B
        subroutine mpDivmi(v,k,rem)

        implicit none
        integer v(3),k,rem

  Divide a multi-precision integer by an integer, returning the
  quotient and remainder.

  NOTE: The current version is a very simple one, which limits the
  maximum size of the divisor to mpBase.

  Input:
    k          The divisor
  Input/Output:
    v          On output v = v / k.
  Output:
    rem        The remainder. Specifically, rem = v % k.
