%N mpabs %F $MIR/src/subs/mp.for
%D Take the absolute value of a multi-precision integer.
%P rjs
%B
        subroutine mpAbs(v)

        implicit none
        integer v(3)

  Take the absolute value of a multi-precision integer.

  Intput/Output:
    v          The output, v = abs(v).
