50 #ifndef LAPACK_DISABLE_NAN_CHECK
65 if (side==
'l' || side==
'L') {
67 work_size =
MAX(1,ldwork) *
MAX(1,n);
71 work_size =
MAX(1,ldwork) *
MAX(1,k);
82 k, l, v, ldv, t, ldt, a, lda, b, ldb, work,
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
#define LAPACKE_malloc(size)
lapack_int LAPACKE_stprfb(int matrix_order, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const float *v, lapack_int ldv, const float *t, lapack_int ldt, float *a, lapack_int lda, float *b, lapack_int ldb)
lapack_int LAPACKE_stprfb_work(int matrix_order, char side, char trans, char direct, char storev, lapack_int m, lapack_int n, lapack_int k, lapack_int l, const float *v, lapack_int ldv, const float *t, lapack_int ldt, float *a, lapack_int lda, float *b, lapack_int ldb, const float *work, lapack_int ldwork)
lapack_logical LAPACKE_sge_nancheck(int matrix_order, lapack_int m, lapack_int n, const float *a, lapack_int lda)
#define LAPACK_WORK_MEMORY_ERROR
set ue cd $ADTTMP cat<< EOF > tmp c void LAPACKE_xerbla(const char *name, lapack_int info)