2 #include "gmx_lapack.h"
5 F77_FUNC(sgetrs,SGETRS)(const char *trans,
15 int a_dim1, a_offset, b_dim1, b_offset;
22 a_offset = 1 + a_dim1;
26 b_offset = 1 + b_dim1;
30 notran = (*trans=='N' || *trans=='n');
32 if (*n <= 0 || *nrhs <= 0)
36 F77_FUNC(slaswp,SLASWP)(nrhs, &b[b_offset], ldb, &c__1, n, &ipiv[1], &c__1);
37 F77_FUNC(strsm,STRSM)("Left", "Lower", "No transpose", "Unit", n, nrhs, &one,
38 &a[a_offset], lda, &b[b_offset], ldb);
40 F77_FUNC(strsm,STRSM)("Left", "Upper", "No transpose", "Non-unit", n, nrhs, &one,
41 &a[a_offset], lda, &b[b_offset], ldb);
43 F77_FUNC(strsm,STRSM)("Left", "Upper", "Transpose", "Non-unit", n, nrhs, &one,
44 &a[a_offset], lda, &b[b_offset], ldb);
45 F77_FUNC(strsm,STRSM)("Left", "Lower", "Transpose", "Unit", n, nrhs, &one,
46 &a[a_offset], lda, &b[b_offset], ldb);
48 F77_FUNC(slaswp,SLASWP)(nrhs, &b[b_offset], ldb, &c__1, n, &ipiv[1], &c_n1);