%N mpcmp %F $MIR/src/subs/mp.for
%D Compare two multi-precision integers.
%P rjs
%B
        integer function mpCmp(v1,v2)

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

  Compute two multi-precision integers.
  Specifically this computes v1-v2 and return -1, 0 or +1 depending
  on whether the result is negative, zero or positive.

  Input:
    v1,v2      The multi-precision integers to be compared.
  Output:
    mpCmp      -1,0 or +1 depending on whether v1 is less than, equal
               to or greater than v2 respectively.
