void LAPACKE_dpf_trans(int matrix_order, char transr, char uplo, lapack_int n, const double *in, double *out)
#define LAPACKE_malloc(size)
lapack_int LAPACKE_dpftri_work(int matrix_order, char transr, char uplo, lapack_int n, double *a)
void LAPACK_dpftri(char *transr, char *uplo, lapack_int *n, double *a, lapack_int *info)
#define LAPACK_TRANSPOSE_MEMORY_ERROR
set ue cd $ADTTMP cat<< EOF > tmp c void LAPACKE_xerbla(const char *name, lapack_int info)