1 #include "gmx_lapack.h"
5 F77_FUNC(slaswp,SLASWP)(int *n,
13 int ix0,i1,i2,inc,n32;
23 ix0 = *incx * (1- *k2);
36 for(j=0;j<n32;j+=32) {
38 for(i=i1;i<i2;i+=inc,ix+=*incx) {
42 temp = a[(k)*(*lda)+i];
43 a[(k)*(*lda)+i] = a[(k)*(*lda)+ip];
44 a[(k)*(*lda)+ip] = temp;
52 for(i=i1;i<i2;i+=inc,ix+=*incx) {
56 temp = a[(k)*(*lda)+i];
57 a[(k)*(*lda)+i] = a[(k)*(*lda)+ip];
58 a[(k)*(*lda)+ip] = temp;