%N mpneg %F $MIR/src/subs/mp.for
%D Negate a multi-precision integer.
%P rjs
%B
        subroutine mpNeg(v)

        implicit none
        integer v(3)

  Negate a multi-precision integer.

  Input/Output:
    v          The output, v = -v
