C++ (Cpp) lapack_zgetrf示例

示例#1

文件： lapack.c 项目： yigao1983/TDDMRG

// Inverse of matrix AA
void lapack_zinvs(int nn, dcmplx *AA)
{
  int *ipiv = NULL;
  
  ipiv = (int *) calloc(nn, sizeof(int));
  check_mem(ipiv, "ipiv");
  
  lapack_zgetrf(nn, nn, AA, ipiv);
  lapack_zgetri(nn, AA, ipiv);
  
  freeup(ipiv);
  
  return;
  
 error:
  if(ipiv) freeup(ipiv);
  abort();
}

示例#2

文件： fzgetrf.c 项目： huangjs/blas-lapack-ffi

void fzgetrf_(int* m, int* n, void* a, int* lda, int* ipiv, int* info)
{
	lapack_zgetrf(*m, *n, a, *lda, ipiv, info);
}