35 #ifndef TEMPLATE_LAPACK_LASWP_HEADER
36 #define TEMPLATE_LAPACK_LASWP_HEADER
99 integer a_dim1, a_offset, i__1, i__2, i__3, i__4;
102 integer i__, j, k, i1, i2, n32, ip, ix, ix0, inc;
103 #define a_ref(a_1,a_2) a[(a_2)*a_dim1 + a_1]
106 a_offset = 1 + a_dim1 * 1;
116 }
else if (*incx < 0) {
117 ix0 = (1 - *k2) * *incx + 1;
128 for (j = 1; j <= i__1; j += 32) {
132 for (i__ = i1; i__3 < 0 ? i__ >= i__2 : i__ <= i__2; i__ += i__3)
137 for (k = j; k <= i__4; ++k) {
138 temp =
a_ref(i__, k);
155 for (i__ = i1; i__3 < 0 ? i__ >= i__1 : i__ <= i__1; i__ += i__3) {
159 for (k = n32; k <= i__2; ++k) {
160 temp =
a_ref(i__, k);
int integer
Definition: template_blas_common.h:38
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:40