      SUBROUTINE CMPAR(R)
      COMMON /PARMS/ A, B
      DOUBLE PRECISION :: A, R
      INTEGER :: B
      A = R
      END

      SUBROUTINE CMPAR2(I)
      COMMON /PARMS/ A, B
      DOUBLE PRECISION :: A
      INTEGER :: B, I
      B = I
      END
