%N mpcvtmi %F $MIR/src/subs/mp.for
%D Convert multi-precision integer to a standard integer.
%P rjs
%B
        integer function mpCvtmi(v)

        implicit none
        integer v(3)

  Convert multi-precision integer to a standard integer.
  If the number exceeds the maximum allowed integer, the program
  is aborted.

  Input:
    v          The multi-precision integer.
  Output:
    mpCvtmi    The standard integer representation.
