37 #ifndef TEMPLATE_BLAS_TRMV_HEADER 38 #define TEMPLATE_BLAS_TRMV_HEADER 46 integer a_dim1, a_offset, i__1, i__2;
53 #define a_ref(a_1,a_2) a[(a_2)*a_dim1 + a_1] 121 a_offset = 1 + a_dim1 * 1;
140 }
else if (*incx == 0) {
155 kx = 1 - (*n - 1) * *incx;
156 }
else if (*incx != 1) {
166 for (j = 1; j <= i__1; ++j) {
170 for (i__ = 1; i__ <= i__2; ++i__) {
171 x[i__] += temp *
a_ref(i__, j);
183 for (j = 1; j <= i__1; ++j) {
188 for (i__ = 1; i__ <= i__2; ++i__) {
189 x[ix] += temp *
a_ref(i__, j);
194 x[jx] *=
a_ref(j, j);
203 for (j = *n; j >= 1; --j) {
207 for (i__ = *n; i__ >= i__1; --i__) {
208 x[i__] += temp *
a_ref(i__, j);
218 kx += (*n - 1) * *incx;
220 for (j = *n; j >= 1; --j) {
225 for (i__ = *n; i__ >= i__1; --i__) {
226 x[ix] += temp *
a_ref(i__, j);
231 x[jx] *=
a_ref(j, j);
243 for (j = *n; j >= 1; --j) {
248 for (i__ = j - 1; i__ >= 1; --i__) {
249 temp +=
a_ref(i__, j) * x[i__];
256 jx = kx + (*n - 1) * *incx;
257 for (j = *n; j >= 1; --j) {
263 for (i__ = j - 1; i__ >= 1; --i__) {
265 temp +=
a_ref(i__, j) * x[ix];
276 for (j = 1; j <= i__1; ++j) {
282 for (i__ = j + 1; i__ <= i__2; ++i__) {
283 temp +=
a_ref(i__, j) * x[i__];
292 for (j = 1; j <= i__1; ++j) {
299 for (i__ = j + 1; i__ <= i__2; ++i__) {
301 temp +=
a_ref(i__, j) * x[ix];
int integer
Definition: template_blas_common.h:40
int template_blas_trmv(const char *uplo, const char *trans, const char *diag, const integer *n, const Treal *a, const integer *lda, Treal *x, const integer *incx)
Definition: template_blas_trmv.h:42
#define maxMACRO(a, b)
Definition: template_blas_common.h:45
int template_blas_erbla(const char *srname, integer *info)
Definition: template_blas_common.cc:146
bool logical
Definition: template_blas_common.h:41
logical template_blas_lsame(const char *ca, const char *cb)
Definition: template_blas_common.cc:46