00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037 #ifndef TEMPLATE_LAPACK_SYGST_HEADER
00038 #define TEMPLATE_LAPACK_SYGST_HEADER
00039
00040 #include "template_lapack_sygs2.h"
00041
00042 template<class Treal>
00043 int template_lapack_sygst(const integer *itype, const char *uplo, const integer *n,
00044 Treal *a, const integer *lda, Treal *b, const integer *ldb, integer *
00045 info)
00046 {
00047
00048
00049
00050
00051
00052
00053
00054
00055
00056
00057
00058
00059
00060
00061
00062
00063
00064
00065
00066
00067
00068
00069
00070
00071
00072
00073
00074
00075
00076
00077
00078
00079
00080
00081
00082
00083
00084
00085
00086
00087
00088
00089
00090
00091
00092
00093
00094
00095
00096
00097
00098
00099
00100
00101
00102
00103
00104
00105
00106
00107
00108
00109
00110
00111
00112
00113
00114
00115
00116 integer c__1 = 1;
00117 integer c_n1 = -1;
00118 Treal c_b14 = 1.;
00119 Treal c_b16 = -.5;
00120 Treal c_b19 = -1.;
00121 Treal c_b52 = .5;
00122
00123
00124 integer a_dim1, a_offset, b_dim1, b_offset, i__1, i__2, i__3;
00125
00126 integer k;
00127 logical upper;
00128 integer kb;
00129 integer nb;
00130 #define a_ref(a_1,a_2) a[(a_2)*a_dim1 + a_1]
00131 #define b_ref(a_1,a_2) b[(a_2)*b_dim1 + a_1]
00132
00133
00134 a_dim1 = *lda;
00135 a_offset = 1 + a_dim1 * 1;
00136 a -= a_offset;
00137 b_dim1 = *ldb;
00138 b_offset = 1 + b_dim1 * 1;
00139 b -= b_offset;
00140
00141
00142 *info = 0;
00143 upper = template_blas_lsame(uplo, "U");
00144 if (*itype < 1 || *itype > 3) {
00145 *info = -1;
00146 } else if (! upper && ! template_blas_lsame(uplo, "L")) {
00147 *info = -2;
00148 } else if (*n < 0) {
00149 *info = -3;
00150 } else if (*lda < maxMACRO(1,*n)) {
00151 *info = -5;
00152 } else if (*ldb < maxMACRO(1,*n)) {
00153 *info = -7;
00154 }
00155 if (*info != 0) {
00156 i__1 = -(*info);
00157 template_blas_erbla("SYGST ", &i__1);
00158 return 0;
00159 }
00160
00161
00162
00163 if (*n == 0) {
00164 return 0;
00165 }
00166
00167
00168
00169 nb = template_lapack_ilaenv(&c__1, "DSYGST", uplo, n, &c_n1, &c_n1, &c_n1, (ftnlen)6, (
00170 ftnlen)1);
00171
00172 if (nb <= 1 || nb >= *n) {
00173
00174
00175
00176 template_lapack_sygs2(itype, uplo, n, &a[a_offset], lda, &b[b_offset], ldb, info);
00177 } else {
00178
00179
00180
00181 if (*itype == 1) {
00182 if (upper) {
00183
00184
00185
00186 i__1 = *n;
00187 i__2 = nb;
00188 for (k = 1; i__2 < 0 ? k >= i__1 : k <= i__1; k += i__2) {
00189
00190 i__3 = *n - k + 1;
00191 kb = minMACRO(i__3,nb);
00192
00193
00194
00195 template_lapack_sygs2(itype, uplo, &kb, &a_ref(k, k), lda, &b_ref(k, k),
00196 ldb, info);
00197 if (k + kb <= *n) {
00198 i__3 = *n - k - kb + 1;
00199 template_blas_trsm("Left", uplo, "Transpose", "Non-unit", &kb, &
00200 i__3, &c_b14, &b_ref(k, k), ldb, &a_ref(k, k
00201 + kb), lda);
00202 i__3 = *n - k - kb + 1;
00203 template_blas_symm("Left", uplo, &kb, &i__3, &c_b16, &a_ref(k, k),
00204 lda, &b_ref(k, k + kb), ldb, &c_b14, &a_ref(
00205 k, k + kb), lda);
00206 i__3 = *n - k - kb + 1;
00207 template_blas_syr2k(uplo, "Transpose", &i__3, &kb, &c_b19, &a_ref(
00208 k, k + kb), lda, &b_ref(k, k + kb), ldb, &
00209 c_b14, &a_ref(k + kb, k + kb), lda);
00210 i__3 = *n - k - kb + 1;
00211 template_blas_symm("Left", uplo, &kb, &i__3, &c_b16, &a_ref(k, k),
00212 lda, &b_ref(k, k + kb), ldb, &c_b14, &a_ref(
00213 k, k + kb), lda);
00214 i__3 = *n - k - kb + 1;
00215 template_blas_trsm("Right", uplo, "No transpose", "Non-unit", &kb,
00216 &i__3, &c_b14, &b_ref(k + kb, k + kb), ldb, &
00217 a_ref(k, k + kb), lda);
00218 }
00219
00220 }
00221 } else {
00222
00223
00224
00225 i__2 = *n;
00226 i__1 = nb;
00227 for (k = 1; i__1 < 0 ? k >= i__2 : k <= i__2; k += i__1) {
00228
00229 i__3 = *n - k + 1;
00230 kb = minMACRO(i__3,nb);
00231
00232
00233
00234 template_lapack_sygs2(itype, uplo, &kb, &a_ref(k, k), lda, &b_ref(k, k),
00235 ldb, info);
00236 if (k + kb <= *n) {
00237 i__3 = *n - k - kb + 1;
00238 template_blas_trsm("Right", uplo, "Transpose", "Non-unit", &i__3,
00239 &kb, &c_b14, &b_ref(k, k), ldb, &a_ref(k + kb,
00240 k), lda);
00241 i__3 = *n - k - kb + 1;
00242 template_blas_symm("Right", uplo, &i__3, &kb, &c_b16, &a_ref(k, k)
00243 , lda, &b_ref(k + kb, k), ldb, &c_b14, &a_ref(
00244 k + kb, k), lda);
00245 i__3 = *n - k - kb + 1;
00246 template_blas_syr2k(uplo, "No transpose", &i__3, &kb, &c_b19, &
00247 a_ref(k + kb, k), lda, &b_ref(k + kb, k), ldb,
00248 &c_b14, &a_ref(k + kb, k + kb), lda);
00249 i__3 = *n - k - kb + 1;
00250 template_blas_symm("Right", uplo, &i__3, &kb, &c_b16, &a_ref(k, k)
00251 , lda, &b_ref(k + kb, k), ldb, &c_b14, &a_ref(
00252 k + kb, k), lda);
00253 i__3 = *n - k - kb + 1;
00254 template_blas_trsm("Left", uplo, "No transpose", "Non-unit", &
00255 i__3, &kb, &c_b14, &b_ref(k + kb, k + kb),
00256 ldb, &a_ref(k + kb, k), lda);
00257 }
00258
00259 }
00260 }
00261 } else {
00262 if (upper) {
00263
00264
00265
00266 i__1 = *n;
00267 i__2 = nb;
00268 for (k = 1; i__2 < 0 ? k >= i__1 : k <= i__1; k += i__2) {
00269
00270 i__3 = *n - k + 1;
00271 kb = minMACRO(i__3,nb);
00272
00273
00274
00275 i__3 = k - 1;
00276 template_blas_trmm("Left", uplo, "No transpose", "Non-unit", &i__3, &
00277 kb, &c_b14, &b[b_offset], ldb, &a_ref(1, k), lda);
00278 i__3 = k - 1;
00279 template_blas_symm("Right", uplo, &i__3, &kb, &c_b52, &a_ref(k, k),
00280 lda, &b_ref(1, k), ldb, &c_b14, &a_ref(1, k), lda);
00281 i__3 = k - 1;
00282 template_blas_syr2k(uplo, "No transpose", &i__3, &kb, &c_b14, &a_ref(
00283 1, k), lda, &b_ref(1, k), ldb, &c_b14, &a[
00284 a_offset], lda);
00285 i__3 = k - 1;
00286 template_blas_symm("Right", uplo, &i__3, &kb, &c_b52, &a_ref(k, k),
00287 lda, &b_ref(1, k), ldb, &c_b14, &a_ref(1, k), lda);
00288 i__3 = k - 1;
00289 template_blas_trmm("Right", uplo, "Transpose", "Non-unit", &i__3, &kb,
00290 &c_b14, &b_ref(k, k), ldb, &a_ref(1, k), lda);
00291 template_lapack_sygs2(itype, uplo, &kb, &a_ref(k, k), lda, &b_ref(k, k),
00292 ldb, info);
00293
00294 }
00295 } else {
00296
00297
00298
00299 i__2 = *n;
00300 i__1 = nb;
00301 for (k = 1; i__1 < 0 ? k >= i__2 : k <= i__2; k += i__1) {
00302
00303 i__3 = *n - k + 1;
00304 kb = minMACRO(i__3,nb);
00305
00306
00307
00308 i__3 = k - 1;
00309 template_blas_trmm("Right", uplo, "No transpose", "Non-unit", &kb, &
00310 i__3, &c_b14, &b[b_offset], ldb, &a_ref(k, 1),
00311 lda);
00312 i__3 = k - 1;
00313 template_blas_symm("Left", uplo, &kb, &i__3, &c_b52, &a_ref(k, k),
00314 lda, &b_ref(k, 1), ldb, &c_b14, &a_ref(k, 1), lda);
00315 i__3 = k - 1;
00316 template_blas_syr2k(uplo, "Transpose", &i__3, &kb, &c_b14, &a_ref(k,
00317 1), lda, &b_ref(k, 1), ldb, &c_b14, &a[a_offset],
00318 lda);
00319 i__3 = k - 1;
00320 template_blas_symm("Left", uplo, &kb, &i__3, &c_b52, &a_ref(k, k),
00321 lda, &b_ref(k, 1), ldb, &c_b14, &a_ref(k, 1), lda);
00322 i__3 = k - 1;
00323 template_blas_trmm("Left", uplo, "Transpose", "Non-unit", &kb, &i__3,
00324 &c_b14, &b_ref(k, k), ldb, &a_ref(k, 1), lda);
00325 template_lapack_sygs2(itype, uplo, &kb, &a_ref(k, k), lda, &b_ref(k, k),
00326 ldb, info);
00327
00328 }
00329 }
00330 }
00331 }
00332 return 0;
00333
00334
00335
00336 }
00337
00338 #undef b_ref
00339 #undef a_ref
00340
00341
00342 #endif