void LAPACK_dspgst(lapack_int *itype, char *uplo, lapack_int *n, double *ap, const double *bp, lapack_int *info)
void LAPACKE_dsp_trans(int matrix_order, char uplo, lapack_int n, const double *in, double *out)
#define LAPACKE_malloc(size)
#define LAPACK_TRANSPOSE_MEMORY_ERROR
lapack_int LAPACKE_dspgst_work(int matrix_order, lapack_int itype, char uplo, lapack_int n, double *ap, const double *bp)
set ue cd $ADTTMP cat<< EOF > tmp c void LAPACKE_xerbla(const char *name, lapack_int info)