SUBROUTINE DCRGRG(N,A,LDA,B,LDB)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION A(LDA,*), B(LDB,*)
      CALL DLACPY('M',N,N,A,LDA,B,LDB)
      RETURN
      END