SUBROUTINE MPRECON(NDIM,X,Y)
      IMPLICIT NONE

      INTEGER NDIM
      DOUBLE PRECISION X(NDIM),Y(NDIM)
      INTEGER II

      DO II = 1,NDIM
        Y(II) = X(II)
      END DO 
      END