%N mpset %F $MIR/src/subs/mp.for
%D Copy one multi-precision integer to another.
%P rjs
%B
        subroutine mpSet(v1,v2)

        implicit none
        integer v1(3),v2(3)

  Copy one multi-precision integer to another.

  Input:
    v1         The input multi-precision integer.
  Output:
    v2         The copy of the input multi-precision integer.
