37 #ifndef TEMPLATE_LAPACK_LASWP_HEADER 38 #define TEMPLATE_LAPACK_LASWP_HEADER 101 integer a_dim1, a_offset, i__1, i__2, i__3, i__4;
104 integer i__, j, k, i1, i2, n32, ip, ix, ix0, inc;
105 #define a_ref(a_1,a_2) a[(a_2)*a_dim1 + a_1] 108 a_offset = 1 + a_dim1 * 1;
118 }
else if (*incx < 0) {
119 ix0 = (1 - *k2) * *incx + 1;
130 for (j = 1; j <= i__1; j += 32) {
134 for (i__ = i1; i__3 < 0 ? i__ >= i__2 : i__ <= i__2; i__ += i__3)
139 for (k = j; k <= i__4; ++k) {
140 temp =
a_ref(i__, k);
157 for (i__ = i1; i__3 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__3) {
161 for (k = n32; k <= i__2; ++k) {
162 temp =
a_ref(i__, k);
int integer
Definition: template_blas_common.h:40
int template_lapack_laswp(const integer *n, Treal *a, const integer *lda, const integer *k1, const integer *k2, const integer *ipiv, const integer *incx)
Definition: template_lapack_laswp.h:42