#include "f2c.h"
void dcrgrg(int n, double *a, int lda, double *b, int ldb)
{
  char uplo='m';
  
  dlacpy_(&uplo, &n, &n, a, &lda, b, &ldb);
}