1 #include "gmx_lapack.h"
5 F77_FUNC(sgeqr2,SGEQR2)(int *m,
13 int k = (*m < *n) ? *m : *n;
21 i2 = ( (i+1) < (*m-1) ) ? (i+1) : (*m-1);
23 F77_FUNC(slarfg,SLARFG)(&i1,&(a[i*(*lda)+i]),&(a[i*(*lda)+i2]),&i3,&(tau[i]));
28 F77_FUNC(slarf,SLARF)("L",&i1,&i2,&(a[i*(*lda)+i]),&i3,&(tau[i]),
29 &(a[(i+1)*(*lda)+i]),lda,work);