Go to the documentation of this file.
37 #ifndef TEMPLATE_LAPACK_GETF2_HEADER
38 #define TEMPLATE_LAPACK_GETF2_HEADER
105 integer a_dim1, a_offset, i__1, i__2, i__3;
110 #define a_ref(a_1,a_2) a[(a_2)*a_dim1 + a_1]
114 a_offset = 1 + a_dim1 * 1;
135 if (*m == 0 || *n == 0) {
140 for (j = 1; j <= i__1; ++j) {
147 if (
a_ref(jp, j) != 0.) {
159 d__1 = 1. /
a_ref(j, j);
163 }
else if (*info == 0) {
175 1), lda, &
a_ref(j + 1, j + 1), lda);
int template_blas_swap(const integer *n, Treal *dx, const integer *incx, Treal *dy, const integer *incy)
Definition: template_blas_swap.h:42
integer template_blas_idamax(const integer *n, const Treal *dx, const integer *incx)
Definition: template_blas_idamax.h:42
int template_blas_scal(const integer *n, const Treal *da, Treal *dx, const integer *incx)
Definition: template_blas_scal.h:43
#define minMACRO(a, b)
Definition: template_blas_common.h:46
int template_blas_ger(const integer *m, const integer *n, const Treal *alpha, const Treal *x, const integer *incx, const Treal *y, const integer *incy, Treal *a, const integer *lda)
Definition: template_blas_ger.h:42
int template_lapack_getf2(const integer *m, const integer *n, Treal *a, const integer *lda, integer *ipiv, integer *info)
Definition: template_lapack_getf2.h:42
int template_blas_erbla(const char *srname, integer *info)
Definition: template_blas_common.cc:146
int integer
Definition: template_blas_common.h:40
#define maxMACRO(a, b)
Definition: template_blas_common.h:45