00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013 #include "f2c.h"
00014 #include "blaswrap.h"
00015
00016
00017
00018 struct {
00019 integer infot, nout;
00020 logical ok, lerr;
00021 } infoc_;
00022
00023 #define infoc_1 infoc_
00024
00025 struct {
00026 char srnamt[32];
00027 } srnamc_;
00028
00029 #define srnamc_1 srnamc_
00030
00031
00032
00033 static integer c__2 = 2;
00034 static integer c__0 = 0;
00035 static integer c__1 = 1;
00036 static integer c_n1 = -1;
00037 static integer c__18 = 18;
00038 static integer c__3 = 3;
00039 static integer c__32 = 32;
00040 static logical c_true = TRUE_;
00041 static logical c_false = FALSE_;
00042 static integer c__20 = 20;
00043
00044 int serrgg_(char *path, integer *nunit)
00045 {
00046
00047 static char fmt_9999[] = "(1x,a3,\002 routines passed the tests of the e"
00048 "rror exits (\002,i3,\002 tests done)\002)";
00049 static char fmt_9998[] = "(\002 *** \002,a3,\002 routines failed the tes"
00050 "ts of the error \002,\002exits ***\002)";
00051
00052
00053 integer s_wsle(cilist *), e_wsle(void);
00054 int s_copy(char *, char *, ftnlen, ftnlen);
00055 integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe(void);
00056
00057
00058 real a[9] , b[9] ;
00059 integer i__, j, m;
00060 real q[9] , u[9] , v[9]
00061 , w[18], z__[9] ;
00062 char c2[2];
00063 real r1[3], r2[3], r3[3];
00064 logical bw[3];
00065 real ls[3];
00066 integer iw[3], nt;
00067 real rs[3], dif, rce[2];
00068 logical sel[3];
00069 real tau[3], rcv[2];
00070 integer info, sdim;
00071 real anrm, bnrm, tola, tolb;
00072 integer ifst, ilst;
00073 real scale;
00074 extern int sgges_(char *, char *, char *, L_fp, integer *
00075 , real *, integer *, real *, integer *, integer *, real *, real *,
00076 real *, real *, integer *, real *, integer *, real *, integer *,
00077 logical *, integer *), sggev_(char *,
00078 char *, integer *, real *, integer *, real *, integer *, real *,
00079 real *, real *, real *, integer *, real *, integer *, real *,
00080 integer *, integer *);
00081 integer ncycle;
00082 extern int sgghrd_(char *, char *, integer *, integer *,
00083 integer *, real *, integer *, real *, integer *, real *, integer *
00084 , real *, integer *, integer *);
00085 extern logical lsamen_(integer *, char *, char *);
00086 extern int sggglm_(integer *, integer *, integer *, real
00087 *, integer *, real *, integer *, real *, real *, real *, real *,
00088 integer *, integer *), chkxer_(char *, integer *, integer *,
00089 logical *, logical *), sgglse_(integer *, integer *,
00090 integer *, real *, integer *, real *, integer *, real *, real *,
00091 real *, real *, integer *, integer *), sggqrf_(integer *, integer
00092 *, integer *, real *, integer *, real *, real *, integer *, real *
00093 , real *, integer *, integer *), sggrqf_(integer *, integer *,
00094 integer *, real *, integer *, real *, real *, integer *, real *,
00095 real *, integer *, integer *), stgevc_(char *, char *, logical *,
00096 integer *, real *, integer *, real *, integer *, real *, integer *
00097 , real *, integer *, integer *, integer *, real *, integer *);
00098 extern logical slctes_();
00099 extern int sggsvd_(char *, char *, char *, integer *,
00100 integer *, integer *, integer *, integer *, real *, integer *,
00101 real *, integer *, real *, real *, real *, integer *, real *,
00102 integer *, real *, integer *, real *, integer *, integer *), stgexc_(logical *, logical *, integer *,
00103 real *, integer *, real *, integer *, real *, integer *, real *,
00104 integer *, integer *, integer *, real *, integer *, integer *),
00105 sggesx_(char *, char *, char *, L_fp, char *, integer *, real *,
00106 integer *, real *, integer *, integer *, real *, real *, real *,
00107 real *, integer *, real *, integer *, real *, real *, real *,
00108 integer *, integer *, integer *, logical *, integer *), shgeqz_(char *, char *, char *, integer *
00109 , integer *, integer *, real *, integer *, real *, integer *,
00110 real *, real *, real *, real *, integer *, real *, integer *,
00111 real *, integer *, integer *), stgsja_(
00112 char *, char *, char *, integer *, integer *, integer *, integer *
00113 , integer *, real *, integer *, real *, integer *, real *, real *,
00114 real *, real *, real *, integer *, real *, integer *, real *,
00115 integer *, real *, integer *, integer *),
00116 sggevx_(char *, char *, char *, char *, integer *, real *,
00117 integer *, real *, integer *, real *, real *, real *, real *,
00118 integer *, real *, integer *, integer *, integer *, real *, real *
00119 , real *, real *, real *, real *, real *, integer *, integer *,
00120 logical *, integer *), stgsen_(
00121 integer *, logical *, logical *, logical *, integer *, real *,
00122 integer *, real *, integer *, real *, real *, real *, real *,
00123 integer *, real *, integer *, integer *, real *, real *, real *,
00124 real *, integer *, integer *, integer *, integer *), stgsna_(char
00125 *, char *, logical *, integer *, real *, integer *, real *,
00126 integer *, real *, integer *, real *, integer *, real *, real *,
00127 integer *, integer *, real *, integer *, integer *, integer *);
00128 integer dummyk, dummyl;
00129 extern int sggsvp_(char *, char *, char *, integer *,
00130 integer *, integer *, real *, integer *, real *, integer *, real *
00131 , real *, integer *, integer *, real *, integer *, real *,
00132 integer *, real *, integer *, integer *, real *, real *, integer *
00133 );
00134 extern logical slctsx_();
00135 extern int stgsyl_(char *, integer *, integer *, integer
00136 *, real *, integer *, real *, integer *, real *, integer *, real *
00137 , integer *, real *, integer *, real *, integer *, real *, real *,
00138 real *, integer *, integer *, integer *);
00139
00140
00141 static cilist io___1 = { 0, 0, 0, 0, 0 };
00142 static cilist io___38 = { 0, 0, 0, fmt_9999, 0 };
00143 static cilist io___39 = { 0, 0, 0, fmt_9998, 0 };
00144
00145
00146
00147
00148
00149
00150
00151
00152
00153
00154
00155
00156
00157
00158
00159
00160
00161
00162
00163
00164
00165
00166
00167
00168
00169
00170
00171
00172
00173
00174
00175
00176
00177
00178
00179
00180
00181
00182
00183
00184
00185
00186
00187
00188 infoc_1.nout = *nunit;
00189 io___1.ciunit = infoc_1.nout;
00190 s_wsle(&io___1);
00191 e_wsle();
00192 s_copy(c2, path + 1, (ftnlen)2, (ftnlen)2);
00193
00194
00195
00196 for (j = 1; j <= 3; ++j) {
00197 sel[j - 1] = TRUE_;
00198 for (i__ = 1; i__ <= 3; ++i__) {
00199 a[i__ + j * 3 - 4] = 0.f;
00200 b[i__ + j * 3 - 4] = 0.f;
00201
00202 }
00203
00204 }
00205 for (i__ = 1; i__ <= 3; ++i__) {
00206 a[i__ + i__ * 3 - 4] = 1.f;
00207 b[i__ + i__ * 3 - 4] = 1.f;
00208
00209 }
00210 infoc_1.ok = TRUE_;
00211 tola = 1.f;
00212 tolb = 1.f;
00213 ifst = 1;
00214 ilst = 1;
00215 nt = 0;
00216
00217
00218
00219 if (lsamen_(&c__2, c2, "GG")) {
00220
00221
00222
00223 s_copy(srnamc_1.srnamt, "SGGHRD", (ftnlen)32, (ftnlen)6);
00224 infoc_1.infot = 1;
00225 sgghrd_("/", "N", &c__0, &c__1, &c__0, a, &c__1, b, &c__1, q, &c__1,
00226 z__, &c__1, &info);
00227 chkxer_("SGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00228 infoc_1.ok);
00229 infoc_1.infot = 2;
00230 sgghrd_("N", "/", &c__0, &c__1, &c__0, a, &c__1, b, &c__1, q, &c__1,
00231 z__, &c__1, &info);
00232 chkxer_("SGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00233 infoc_1.ok);
00234 infoc_1.infot = 3;
00235 sgghrd_("N", "N", &c_n1, &c__0, &c__0, a, &c__1, b, &c__1, q, &c__1,
00236 z__, &c__1, &info);
00237 chkxer_("SGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00238 infoc_1.ok);
00239 infoc_1.infot = 4;
00240 sgghrd_("N", "N", &c__0, &c__0, &c__0, a, &c__1, b, &c__1, q, &c__1,
00241 z__, &c__1, &info);
00242 chkxer_("SGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00243 infoc_1.ok);
00244 infoc_1.infot = 5;
00245 sgghrd_("N", "N", &c__0, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__1,
00246 z__, &c__1, &info);
00247 chkxer_("SGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00248 infoc_1.ok);
00249 infoc_1.infot = 7;
00250 sgghrd_("N", "N", &c__2, &c__1, &c__1, a, &c__1, b, &c__2, q, &c__1,
00251 z__, &c__1, &info);
00252 chkxer_("SGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00253 infoc_1.ok);
00254 infoc_1.infot = 9;
00255 sgghrd_("N", "N", &c__2, &c__1, &c__1, a, &c__2, b, &c__1, q, &c__1,
00256 z__, &c__1, &info);
00257 chkxer_("SGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00258 infoc_1.ok);
00259 infoc_1.infot = 11;
00260 sgghrd_("V", "N", &c__2, &c__1, &c__1, a, &c__2, b, &c__2, q, &c__1,
00261 z__, &c__1, &info);
00262 chkxer_("SGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00263 infoc_1.ok);
00264 infoc_1.infot = 13;
00265 sgghrd_("N", "V", &c__2, &c__1, &c__1, a, &c__2, b, &c__2, q, &c__1,
00266 z__, &c__1, &info);
00267 chkxer_("SGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00268 infoc_1.ok);
00269 nt += 9;
00270
00271
00272
00273 s_copy(srnamc_1.srnamt, "SHGEQZ", (ftnlen)32, (ftnlen)6);
00274 infoc_1.infot = 1;
00275 shgeqz_("/", "N", "N", &c__0, &c__1, &c__0, a, &c__1, b, &c__1, r1,
00276 r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
00277 chkxer_("SHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00278 infoc_1.ok);
00279 infoc_1.infot = 2;
00280 shgeqz_("E", "/", "N", &c__0, &c__1, &c__0, a, &c__1, b, &c__1, r1,
00281 r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
00282 chkxer_("SHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00283 infoc_1.ok);
00284 infoc_1.infot = 3;
00285 shgeqz_("E", "N", "/", &c__0, &c__1, &c__0, a, &c__1, b, &c__1, r1,
00286 r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
00287 chkxer_("SHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00288 infoc_1.ok);
00289 infoc_1.infot = 4;
00290 shgeqz_("E", "N", "N", &c_n1, &c__0, &c__0, a, &c__1, b, &c__1, r1,
00291 r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
00292 chkxer_("SHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00293 infoc_1.ok);
00294 infoc_1.infot = 5;
00295 shgeqz_("E", "N", "N", &c__0, &c__0, &c__0, a, &c__1, b, &c__1, r1,
00296 r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
00297 chkxer_("SHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00298 infoc_1.ok);
00299 infoc_1.infot = 6;
00300 shgeqz_("E", "N", "N", &c__0, &c__1, &c__1, a, &c__1, b, &c__1, r1,
00301 r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
00302 chkxer_("SHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00303 infoc_1.ok);
00304 infoc_1.infot = 8;
00305 shgeqz_("E", "N", "N", &c__2, &c__1, &c__1, a, &c__1, b, &c__2, r1,
00306 r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
00307 chkxer_("SHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00308 infoc_1.ok);
00309 infoc_1.infot = 10;
00310 shgeqz_("E", "N", "N", &c__2, &c__1, &c__1, a, &c__2, b, &c__1, r1,
00311 r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
00312 chkxer_("SHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00313 infoc_1.ok);
00314 infoc_1.infot = 15;
00315 shgeqz_("E", "V", "N", &c__2, &c__1, &c__1, a, &c__2, b, &c__2, r1,
00316 r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
00317 chkxer_("SHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00318 infoc_1.ok);
00319 infoc_1.infot = 17;
00320 shgeqz_("E", "N", "V", &c__2, &c__1, &c__1, a, &c__2, b, &c__2, r1,
00321 r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
00322 chkxer_("SHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00323 infoc_1.ok);
00324 nt += 10;
00325
00326
00327
00328 s_copy(srnamc_1.srnamt, "STGEVC", (ftnlen)32, (ftnlen)6);
00329 infoc_1.infot = 1;
00330 stgevc_("/", "A", sel, &c__0, a, &c__1, b, &c__1, q, &c__1, z__, &
00331 c__1, &c__0, &m, w, &info);
00332 chkxer_("STGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00333 infoc_1.ok);
00334 infoc_1.infot = 2;
00335 stgevc_("R", "/", sel, &c__0, a, &c__1, b, &c__1, q, &c__1, z__, &
00336 c__1, &c__0, &m, w, &info);
00337 chkxer_("STGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00338 infoc_1.ok);
00339 infoc_1.infot = 4;
00340 stgevc_("R", "A", sel, &c_n1, a, &c__1, b, &c__1, q, &c__1, z__, &
00341 c__1, &c__0, &m, w, &info);
00342 chkxer_("STGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00343 infoc_1.ok);
00344 infoc_1.infot = 6;
00345 stgevc_("R", "A", sel, &c__2, a, &c__1, b, &c__2, q, &c__1, z__, &
00346 c__2, &c__0, &m, w, &info);
00347 chkxer_("STGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00348 infoc_1.ok);
00349 infoc_1.infot = 8;
00350 stgevc_("R", "A", sel, &c__2, a, &c__2, b, &c__1, q, &c__1, z__, &
00351 c__2, &c__0, &m, w, &info);
00352 chkxer_("STGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00353 infoc_1.ok);
00354 infoc_1.infot = 10;
00355 stgevc_("L", "A", sel, &c__2, a, &c__2, b, &c__2, q, &c__1, z__, &
00356 c__1, &c__0, &m, w, &info);
00357 chkxer_("STGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00358 infoc_1.ok);
00359 infoc_1.infot = 12;
00360 stgevc_("R", "A", sel, &c__2, a, &c__2, b, &c__2, q, &c__1, z__, &
00361 c__1, &c__0, &m, w, &info);
00362 chkxer_("STGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00363 infoc_1.ok);
00364 infoc_1.infot = 13;
00365 stgevc_("R", "A", sel, &c__2, a, &c__2, b, &c__2, q, &c__1, z__, &
00366 c__2, &c__1, &m, w, &info);
00367 chkxer_("STGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00368 infoc_1.ok);
00369 nt += 8;
00370
00371
00372
00373 } else if (lsamen_(&c__3, path, "GSV")) {
00374
00375
00376
00377 s_copy(srnamc_1.srnamt, "SGGSVD", (ftnlen)32, (ftnlen)6);
00378 infoc_1.infot = 1;
00379 sggsvd_("/", "N", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
00380 c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
00381 info);
00382 chkxer_("SGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00383 infoc_1.ok);
00384 infoc_1.infot = 2;
00385 sggsvd_("N", "/", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
00386 c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
00387 info);
00388 chkxer_("SGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00389 infoc_1.ok);
00390 infoc_1.infot = 3;
00391 sggsvd_("N", "N", "/", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
00392 c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
00393 info);
00394 chkxer_("SGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00395 infoc_1.ok);
00396 infoc_1.infot = 4;
00397 sggsvd_("N", "N", "N", &c_n1, &c__0, &c__0, &dummyk, &dummyl, a, &
00398 c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
00399 info);
00400 chkxer_("SGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00401 infoc_1.ok);
00402 infoc_1.infot = 5;
00403 sggsvd_("N", "N", "N", &c__0, &c_n1, &c__0, &dummyk, &dummyl, a, &
00404 c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
00405 info);
00406 chkxer_("SGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00407 infoc_1.ok);
00408 infoc_1.infot = 6;
00409 sggsvd_("N", "N", "N", &c__0, &c__0, &c_n1, &dummyk, &dummyl, a, &
00410 c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
00411 info);
00412 chkxer_("SGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00413 infoc_1.ok);
00414 infoc_1.infot = 10;
00415 sggsvd_("N", "N", "N", &c__2, &c__1, &c__1, &dummyk, &dummyl, a, &
00416 c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
00417 info);
00418 chkxer_("SGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00419 infoc_1.ok);
00420 infoc_1.infot = 12;
00421 sggsvd_("N", "N", "N", &c__1, &c__1, &c__2, &dummyk, &dummyl, a, &
00422 c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
00423 info);
00424 chkxer_("SGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00425 infoc_1.ok);
00426 infoc_1.infot = 16;
00427 sggsvd_("U", "N", "N", &c__2, &c__2, &c__2, &dummyk, &dummyl, a, &
00428 c__2, b, &c__2, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
00429 info);
00430 chkxer_("SGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00431 infoc_1.ok);
00432 infoc_1.infot = 18;
00433 sggsvd_("N", "V", "N", &c__1, &c__1, &c__2, &dummyk, &dummyl, a, &
00434 c__1, b, &c__2, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
00435 info);
00436 chkxer_("SGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00437 infoc_1.ok);
00438 infoc_1.infot = 20;
00439 sggsvd_("N", "N", "Q", &c__1, &c__2, &c__1, &dummyk, &dummyl, a, &
00440 c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
00441 info);
00442 chkxer_("SGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00443 infoc_1.ok);
00444 nt += 11;
00445
00446
00447
00448 s_copy(srnamc_1.srnamt, "SGGSVP", (ftnlen)32, (ftnlen)6);
00449 infoc_1.infot = 1;
00450 sggsvp_("/", "N", "N", &c__0, &c__0, &c__0, a, &c__1, b, &c__1, &tola,
00451 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw,
00452 tau, w, &info);
00453 chkxer_("SGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00454 infoc_1.ok);
00455 infoc_1.infot = 2;
00456 sggsvp_("N", "/", "N", &c__0, &c__0, &c__0, a, &c__1, b, &c__1, &tola,
00457 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw,
00458 tau, w, &info);
00459 chkxer_("SGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00460 infoc_1.ok);
00461 infoc_1.infot = 3;
00462 sggsvp_("N", "N", "/", &c__0, &c__0, &c__0, a, &c__1, b, &c__1, &tola,
00463 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw,
00464 tau, w, &info);
00465 chkxer_("SGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00466 infoc_1.ok);
00467 infoc_1.infot = 4;
00468 sggsvp_("N", "N", "N", &c_n1, &c__0, &c__0, a, &c__1, b, &c__1, &tola,
00469 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw,
00470 tau, w, &info);
00471 chkxer_("SGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00472 infoc_1.ok);
00473 infoc_1.infot = 5;
00474 sggsvp_("N", "N", "N", &c__0, &c_n1, &c__0, a, &c__1, b, &c__1, &tola,
00475 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw,
00476 tau, w, &info);
00477 chkxer_("SGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00478 infoc_1.ok);
00479 infoc_1.infot = 6;
00480 sggsvp_("N", "N", "N", &c__0, &c__0, &c_n1, a, &c__1, b, &c__1, &tola,
00481 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw,
00482 tau, w, &info);
00483 chkxer_("SGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00484 infoc_1.ok);
00485 infoc_1.infot = 8;
00486 sggsvp_("N", "N", "N", &c__2, &c__1, &c__1, a, &c__1, b, &c__1, &tola,
00487 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw,
00488 tau, w, &info);
00489 chkxer_("SGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00490 infoc_1.ok);
00491 infoc_1.infot = 10;
00492 sggsvp_("N", "N", "N", &c__1, &c__2, &c__1, a, &c__1, b, &c__1, &tola,
00493 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw,
00494 tau, w, &info);
00495 chkxer_("SGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00496 infoc_1.ok);
00497 infoc_1.infot = 16;
00498 sggsvp_("U", "N", "N", &c__2, &c__2, &c__2, a, &c__2, b, &c__2, &tola,
00499 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw,
00500 tau, w, &info);
00501 chkxer_("SGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00502 infoc_1.ok);
00503 infoc_1.infot = 18;
00504 sggsvp_("N", "V", "N", &c__1, &c__2, &c__1, a, &c__1, b, &c__2, &tola,
00505 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw,
00506 tau, w, &info);
00507 chkxer_("SGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00508 infoc_1.ok);
00509 infoc_1.infot = 20;
00510 sggsvp_("N", "N", "Q", &c__1, &c__1, &c__2, a, &c__1, b, &c__1, &tola,
00511 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw,
00512 tau, w, &info);
00513 chkxer_("SGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00514 infoc_1.ok);
00515 nt += 11;
00516
00517
00518
00519 s_copy(srnamc_1.srnamt, "STGSJA", (ftnlen)32, (ftnlen)6);
00520 infoc_1.infot = 1;
00521 stgsja_("/", "N", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
00522 c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
00523 c__1, w, &ncycle, &info);
00524 chkxer_("STGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00525 infoc_1.ok);
00526 infoc_1.infot = 2;
00527 stgsja_("N", "/", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
00528 c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
00529 c__1, w, &ncycle, &info);
00530 chkxer_("STGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00531 infoc_1.ok);
00532 infoc_1.infot = 3;
00533 stgsja_("N", "N", "/", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
00534 c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
00535 c__1, w, &ncycle, &info);
00536 chkxer_("STGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00537 infoc_1.ok);
00538 infoc_1.infot = 4;
00539 stgsja_("N", "N", "N", &c_n1, &c__0, &c__0, &dummyk, &dummyl, a, &
00540 c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
00541 c__1, w, &ncycle, &info);
00542 chkxer_("STGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00543 infoc_1.ok);
00544 infoc_1.infot = 5;
00545 stgsja_("N", "N", "N", &c__0, &c_n1, &c__0, &dummyk, &dummyl, a, &
00546 c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
00547 c__1, w, &ncycle, &info);
00548 chkxer_("STGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00549 infoc_1.ok);
00550 infoc_1.infot = 6;
00551 stgsja_("N", "N", "N", &c__0, &c__0, &c_n1, &dummyk, &dummyl, a, &
00552 c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
00553 c__1, w, &ncycle, &info);
00554 chkxer_("STGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00555 infoc_1.ok);
00556 infoc_1.infot = 10;
00557 stgsja_("N", "N", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
00558 c__0, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
00559 c__1, w, &ncycle, &info);
00560 chkxer_("STGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00561 infoc_1.ok);
00562 infoc_1.infot = 12;
00563 stgsja_("N", "N", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
00564 c__1, b, &c__0, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
00565 c__1, w, &ncycle, &info);
00566 chkxer_("STGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00567 infoc_1.ok);
00568 infoc_1.infot = 18;
00569 stgsja_("U", "N", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
00570 c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__0, v, &c__1, q, &
00571 c__1, w, &ncycle, &info);
00572 chkxer_("STGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00573 infoc_1.ok);
00574 infoc_1.infot = 20;
00575 stgsja_("N", "V", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
00576 c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__0, q, &
00577 c__1, w, &ncycle, &info);
00578 chkxer_("STGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00579 infoc_1.ok);
00580 infoc_1.infot = 22;
00581 stgsja_("N", "N", "Q", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
00582 c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
00583 c__0, w, &ncycle, &info);
00584 chkxer_("STGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00585 infoc_1.ok);
00586 nt += 11;
00587
00588
00589
00590 } else if (lsamen_(&c__3, path, "GLM")) {
00591
00592
00593
00594 s_copy(srnamc_1.srnamt, "SGGGLM", (ftnlen)32, (ftnlen)6);
00595 infoc_1.infot = 1;
00596 sggglm_(&c_n1, &c__0, &c__0, a, &c__1, b, &c__1, r1, r2, r3, w, &
00597 c__18, &info);
00598 chkxer_("SGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00599 infoc_1.ok);
00600 infoc_1.infot = 2;
00601 sggglm_(&c__0, &c_n1, &c__0, a, &c__1, b, &c__1, r1, r2, r3, w, &
00602 c__18, &info);
00603 chkxer_("SGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00604 infoc_1.ok);
00605 infoc_1.infot = 2;
00606 sggglm_(&c__0, &c__1, &c__0, a, &c__1, b, &c__1, r1, r2, r3, w, &
00607 c__18, &info);
00608 chkxer_("SGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00609 infoc_1.ok);
00610 infoc_1.infot = 3;
00611 sggglm_(&c__0, &c__0, &c_n1, a, &c__1, b, &c__1, r1, r2, r3, w, &
00612 c__18, &info);
00613 chkxer_("SGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00614 infoc_1.ok);
00615 infoc_1.infot = 3;
00616 sggglm_(&c__1, &c__0, &c__0, a, &c__1, b, &c__1, r1, r2, r3, w, &
00617 c__18, &info);
00618 chkxer_("SGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00619 infoc_1.ok);
00620 infoc_1.infot = 5;
00621 sggglm_(&c__0, &c__0, &c__0, a, &c__0, b, &c__1, r1, r2, r3, w, &
00622 c__18, &info);
00623 chkxer_("SGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00624 infoc_1.ok);
00625 infoc_1.infot = 7;
00626 sggglm_(&c__0, &c__0, &c__0, a, &c__1, b, &c__0, r1, r2, r3, w, &
00627 c__18, &info);
00628 chkxer_("SGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00629 infoc_1.ok);
00630 infoc_1.infot = 12;
00631 sggglm_(&c__1, &c__1, &c__1, a, &c__1, b, &c__1, r1, r2, r3, w, &c__1,
00632 &info);
00633 chkxer_("SGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00634 infoc_1.ok);
00635 nt += 8;
00636
00637
00638
00639 } else if (lsamen_(&c__3, path, "LSE")) {
00640
00641
00642
00643 s_copy(srnamc_1.srnamt, "SGGLSE", (ftnlen)32, (ftnlen)6);
00644 infoc_1.infot = 1;
00645 sgglse_(&c_n1, &c__0, &c__0, a, &c__1, b, &c__1, r1, r2, r3, w, &
00646 c__18, &info);
00647 chkxer_("SGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00648 infoc_1.ok);
00649 infoc_1.infot = 2;
00650 sgglse_(&c__0, &c_n1, &c__0, a, &c__1, b, &c__1, r1, r2, r3, w, &
00651 c__18, &info);
00652 chkxer_("SGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00653 infoc_1.ok);
00654 infoc_1.infot = 3;
00655 sgglse_(&c__0, &c__0, &c_n1, a, &c__1, b, &c__1, r1, r2, r3, w, &
00656 c__18, &info);
00657 chkxer_("SGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00658 infoc_1.ok);
00659 infoc_1.infot = 3;
00660 sgglse_(&c__0, &c__0, &c__1, a, &c__1, b, &c__1, r1, r2, r3, w, &
00661 c__18, &info);
00662 chkxer_("SGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00663 infoc_1.ok);
00664 infoc_1.infot = 3;
00665 sgglse_(&c__0, &c__1, &c__0, a, &c__1, b, &c__1, r1, r2, r3, w, &
00666 c__18, &info);
00667 chkxer_("SGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00668 infoc_1.ok);
00669 infoc_1.infot = 5;
00670 sgglse_(&c__0, &c__0, &c__0, a, &c__0, b, &c__1, r1, r2, r3, w, &
00671 c__18, &info);
00672 chkxer_("SGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00673 infoc_1.ok);
00674 infoc_1.infot = 7;
00675 sgglse_(&c__0, &c__0, &c__0, a, &c__1, b, &c__0, r1, r2, r3, w, &
00676 c__18, &info);
00677 chkxer_("SGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00678 infoc_1.ok);
00679 infoc_1.infot = 12;
00680 sgglse_(&c__1, &c__1, &c__1, a, &c__1, b, &c__1, r1, r2, r3, w, &c__1,
00681 &info);
00682 chkxer_("SGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00683 infoc_1.ok);
00684 nt += 8;
00685
00686
00687
00688 } else if (lsamen_(&c__3, path, "GQR")) {
00689
00690
00691
00692 s_copy(srnamc_1.srnamt, "SGGQRF", (ftnlen)32, (ftnlen)6);
00693 infoc_1.infot = 1;
00694 sggqrf_(&c_n1, &c__0, &c__0, a, &c__1, r1, b, &c__1, r2, w, &c__18, &
00695 info);
00696 chkxer_("SGGQRF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00697 infoc_1.ok);
00698 infoc_1.infot = 2;
00699 sggqrf_(&c__0, &c_n1, &c__0, a, &c__1, r1, b, &c__1, r2, w, &c__18, &
00700 info);
00701 chkxer_("SGGQRF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00702 infoc_1.ok);
00703 infoc_1.infot = 3;
00704 sggqrf_(&c__0, &c__0, &c_n1, a, &c__1, r1, b, &c__1, r2, w, &c__18, &
00705 info);
00706 chkxer_("SGGQRF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00707 infoc_1.ok);
00708 infoc_1.infot = 5;
00709 sggqrf_(&c__0, &c__0, &c__0, a, &c__0, r1, b, &c__1, r2, w, &c__18, &
00710 info);
00711 chkxer_("SGGQRF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00712 infoc_1.ok);
00713 infoc_1.infot = 8;
00714 sggqrf_(&c__0, &c__0, &c__0, a, &c__1, r1, b, &c__0, r2, w, &c__18, &
00715 info);
00716 chkxer_("SGGQRF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00717 infoc_1.ok);
00718 infoc_1.infot = 11;
00719 sggqrf_(&c__1, &c__1, &c__2, a, &c__1, r1, b, &c__1, r2, w, &c__1, &
00720 info);
00721 chkxer_("SGGQRF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00722 infoc_1.ok);
00723 nt += 6;
00724
00725
00726
00727 s_copy(srnamc_1.srnamt, "SGGRQF", (ftnlen)32, (ftnlen)6);
00728 infoc_1.infot = 1;
00729 sggrqf_(&c_n1, &c__0, &c__0, a, &c__1, r1, b, &c__1, r2, w, &c__18, &
00730 info);
00731 chkxer_("SGGRQF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00732 infoc_1.ok);
00733 infoc_1.infot = 2;
00734 sggrqf_(&c__0, &c_n1, &c__0, a, &c__1, r1, b, &c__1, r2, w, &c__18, &
00735 info);
00736 chkxer_("SGGRQF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00737 infoc_1.ok);
00738 infoc_1.infot = 3;
00739 sggrqf_(&c__0, &c__0, &c_n1, a, &c__1, r1, b, &c__1, r2, w, &c__18, &
00740 info);
00741 chkxer_("SGGRQF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00742 infoc_1.ok);
00743 infoc_1.infot = 5;
00744 sggrqf_(&c__0, &c__0, &c__0, a, &c__0, r1, b, &c__1, r2, w, &c__18, &
00745 info);
00746 chkxer_("SGGRQF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00747 infoc_1.ok);
00748 infoc_1.infot = 8;
00749 sggrqf_(&c__0, &c__0, &c__0, a, &c__1, r1, b, &c__0, r2, w, &c__18, &
00750 info);
00751 chkxer_("SGGRQF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00752 infoc_1.ok);
00753 infoc_1.infot = 11;
00754 sggrqf_(&c__1, &c__1, &c__2, a, &c__1, r1, b, &c__1, r2, w, &c__1, &
00755 info);
00756 chkxer_("SGGRQF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00757 infoc_1.ok);
00758 nt += 6;
00759
00760
00761
00762 } else if (lsamen_(&c__3, path, "SGS") || lsamen_(&
00763 c__3, path, "SGV") || lsamen_(&c__3, path,
00764 "SGX") || lsamen_(&c__3, path, "SXV")) {
00765
00766
00767
00768 s_copy(srnamc_1.srnamt, "SGGES ", (ftnlen)32, (ftnlen)6);
00769 infoc_1.infot = 1;
00770 sgges_("/", "N", "S", (L_fp)slctes_, &c__1, a, &c__1, b, &c__1, &sdim,
00771 r1, r2, r3, q, &c__1, u, &c__1, w, &c__1, bw, &info);
00772 chkxer_("SGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00773 infoc_1.ok);
00774 infoc_1.infot = 2;
00775 sgges_("N", "/", "S", (L_fp)slctes_, &c__1, a, &c__1, b, &c__1, &sdim,
00776 r1, r2, r3, q, &c__1, u, &c__1, w, &c__1, bw, &info);
00777 chkxer_("SGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00778 infoc_1.ok);
00779 infoc_1.infot = 3;
00780 sgges_("N", "V", "/", (L_fp)slctes_, &c__1, a, &c__1, b, &c__1, &sdim,
00781 r1, r2, r3, q, &c__1, u, &c__1, w, &c__1, bw, &info);
00782 chkxer_("SGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00783 infoc_1.ok);
00784 infoc_1.infot = 5;
00785 sgges_("N", "V", "S", (L_fp)slctes_, &c_n1, a, &c__1, b, &c__1, &sdim,
00786 r1, r2, r3, q, &c__1, u, &c__1, w, &c__1, bw, &info);
00787 chkxer_("SGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00788 infoc_1.ok);
00789 infoc_1.infot = 7;
00790 sgges_("N", "V", "S", (L_fp)slctes_, &c__1, a, &c__0, b, &c__1, &sdim,
00791 r1, r2, r3, q, &c__1, u, &c__1, w, &c__1, bw, &info);
00792 chkxer_("SGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00793 infoc_1.ok);
00794 infoc_1.infot = 9;
00795 sgges_("N", "V", "S", (L_fp)slctes_, &c__1, a, &c__1, b, &c__0, &sdim,
00796 r1, r2, r3, q, &c__1, u, &c__1, w, &c__1, bw, &info);
00797 chkxer_("SGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00798 infoc_1.ok);
00799 infoc_1.infot = 15;
00800 sgges_("N", "V", "S", (L_fp)slctes_, &c__1, a, &c__1, b, &c__1, &sdim,
00801 r1, r2, r3, q, &c__0, u, &c__1, w, &c__1, bw, &info);
00802 chkxer_("SGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00803 infoc_1.ok);
00804 infoc_1.infot = 15;
00805 sgges_("V", "V", "S", (L_fp)slctes_, &c__2, a, &c__2, b, &c__2, &sdim,
00806 r1, r2, r3, q, &c__1, u, &c__2, w, &c__1, bw, &info);
00807 chkxer_("SGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00808 infoc_1.ok);
00809 infoc_1.infot = 17;
00810 sgges_("N", "V", "S", (L_fp)slctes_, &c__1, a, &c__1, b, &c__1, &sdim,
00811 r1, r2, r3, q, &c__1, u, &c__0, w, &c__1, bw, &info);
00812 chkxer_("SGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00813 infoc_1.ok);
00814 infoc_1.infot = 17;
00815 sgges_("V", "V", "S", (L_fp)slctes_, &c__2, a, &c__2, b, &c__2, &sdim,
00816 r1, r2, r3, q, &c__2, u, &c__1, w, &c__1, bw, &info);
00817 chkxer_("SGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00818 infoc_1.ok);
00819 infoc_1.infot = 19;
00820 sgges_("V", "V", "S", (L_fp)slctes_, &c__2, a, &c__2, b, &c__2, &sdim,
00821 r1, r2, r3, q, &c__2, u, &c__2, w, &c__1, bw, &info);
00822 chkxer_("SGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00823 infoc_1.ok);
00824 nt += 11;
00825
00826
00827
00828 s_copy(srnamc_1.srnamt, "SGGESX", (ftnlen)32, (ftnlen)6);
00829 infoc_1.infot = 1;
00830 sggesx_("/", "N", "S", (L_fp)slctsx_, "N", &c__1, a, &c__1, b, &c__1,
00831 &sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw,
00832 &c__1, bw, &info)
00833 ;
00834 chkxer_("SGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00835 infoc_1.ok);
00836 infoc_1.infot = 2;
00837 sggesx_("N", "/", "S", (L_fp)slctsx_, "N", &c__1, a, &c__1, b, &c__1,
00838 &sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw,
00839 &c__1, bw, &info)
00840 ;
00841 chkxer_("SGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00842 infoc_1.ok);
00843 infoc_1.infot = 3;
00844 sggesx_("V", "V", "/", (L_fp)slctsx_, "N", &c__1, a, &c__1, b, &c__1,
00845 &sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw,
00846 &c__1, bw, &info)
00847 ;
00848 chkxer_("SGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00849 infoc_1.ok);
00850 infoc_1.infot = 5;
00851 sggesx_("V", "V", "S", (L_fp)slctsx_, "/", &c__1, a, &c__1, b, &c__1,
00852 &sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw,
00853 &c__1, bw, &info)
00854 ;
00855 chkxer_("SGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00856 infoc_1.ok);
00857 infoc_1.infot = 6;
00858 sggesx_("V", "V", "S", (L_fp)slctsx_, "B", &c_n1, a, &c__1, b, &c__1,
00859 &sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw,
00860 &c__1, bw, &info)
00861 ;
00862 chkxer_("SGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00863 infoc_1.ok);
00864 infoc_1.infot = 8;
00865 sggesx_("V", "V", "S", (L_fp)slctsx_, "B", &c__1, a, &c__0, b, &c__1,
00866 &sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw,
00867 &c__1, bw, &info)
00868 ;
00869 chkxer_("SGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00870 infoc_1.ok);
00871 infoc_1.infot = 10;
00872 sggesx_("V", "V", "S", (L_fp)slctsx_, "B", &c__1, a, &c__1, b, &c__0,
00873 &sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw,
00874 &c__1, bw, &info)
00875 ;
00876 chkxer_("SGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00877 infoc_1.ok);
00878 infoc_1.infot = 16;
00879 sggesx_("V", "V", "S", (L_fp)slctsx_, "B", &c__1, a, &c__1, b, &c__1,
00880 &sdim, r1, r2, r3, q, &c__0, u, &c__1, rce, rcv, w, &c__1, iw,
00881 &c__1, bw, &info)
00882 ;
00883 chkxer_("SGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00884 infoc_1.ok);
00885 infoc_1.infot = 16;
00886 sggesx_("V", "V", "S", (L_fp)slctsx_, "B", &c__2, a, &c__2, b, &c__2,
00887 &sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw,
00888 &c__1, bw, &info)
00889 ;
00890 chkxer_("SGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00891 infoc_1.ok);
00892 infoc_1.infot = 18;
00893 sggesx_("V", "V", "S", (L_fp)slctsx_, "B", &c__1, a, &c__1, b, &c__1,
00894 &sdim, r1, r2, r3, q, &c__1, u, &c__0, rce, rcv, w, &c__1, iw,
00895 &c__1, bw, &info)
00896 ;
00897 chkxer_("SGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00898 infoc_1.ok);
00899 infoc_1.infot = 18;
00900 sggesx_("V", "V", "S", (L_fp)slctsx_, "B", &c__2, a, &c__2, b, &c__2,
00901 &sdim, r1, r2, r3, q, &c__2, u, &c__1, rce, rcv, w, &c__1, iw,
00902 &c__1, bw, &info)
00903 ;
00904 chkxer_("SGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00905 infoc_1.ok);
00906 infoc_1.infot = 22;
00907 sggesx_("V", "V", "S", (L_fp)slctsx_, "B", &c__2, a, &c__2, b, &c__2,
00908 &sdim, r1, r2, r3, q, &c__2, u, &c__2, rce, rcv, w, &c__1, iw,
00909 &c__1, bw, &info)
00910 ;
00911 chkxer_("SGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00912 infoc_1.ok);
00913 infoc_1.infot = 24;
00914 sggesx_("V", "V", "S", (L_fp)slctsx_, "V", &c__1, a, &c__1, b, &c__1,
00915 &sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__32,
00916 iw, &c__0, bw, &info);
00917 chkxer_("SGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00918 infoc_1.ok);
00919 nt += 13;
00920
00921
00922
00923 s_copy(srnamc_1.srnamt, "SGGEV ", (ftnlen)32, (ftnlen)6);
00924 infoc_1.infot = 1;
00925 sggev_("/", "N", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q, &c__1, u, &
00926 c__1, w, &c__1, &info);
00927 chkxer_("SGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00928 infoc_1.ok);
00929 infoc_1.infot = 2;
00930 sggev_("N", "/", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q, &c__1, u, &
00931 c__1, w, &c__1, &info);
00932 chkxer_("SGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00933 infoc_1.ok);
00934 infoc_1.infot = 3;
00935 sggev_("V", "V", &c_n1, a, &c__1, b, &c__1, r1, r2, r3, q, &c__1, u, &
00936 c__1, w, &c__1, &info);
00937 chkxer_("SGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00938 infoc_1.ok);
00939 infoc_1.infot = 5;
00940 sggev_("V", "V", &c__1, a, &c__0, b, &c__1, r1, r2, r3, q, &c__1, u, &
00941 c__1, w, &c__1, &info);
00942 chkxer_("SGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00943 infoc_1.ok);
00944 infoc_1.infot = 7;
00945 sggev_("V", "V", &c__1, a, &c__1, b, &c__0, r1, r2, r3, q, &c__1, u, &
00946 c__1, w, &c__1, &info);
00947 chkxer_("SGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00948 infoc_1.ok);
00949 infoc_1.infot = 12;
00950 sggev_("N", "V", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q, &c__0, u, &
00951 c__1, w, &c__1, &info);
00952 chkxer_("SGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00953 infoc_1.ok);
00954 infoc_1.infot = 12;
00955 sggev_("V", "V", &c__2, a, &c__2, b, &c__2, r1, r2, r3, q, &c__1, u, &
00956 c__2, w, &c__1, &info);
00957 chkxer_("SGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00958 infoc_1.ok);
00959 infoc_1.infot = 14;
00960 sggev_("V", "N", &c__2, a, &c__2, b, &c__2, r1, r2, r3, q, &c__2, u, &
00961 c__0, w, &c__1, &info);
00962 chkxer_("SGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00963 infoc_1.ok);
00964 infoc_1.infot = 14;
00965 sggev_("V", "V", &c__2, a, &c__2, b, &c__2, r1, r2, r3, q, &c__2, u, &
00966 c__1, w, &c__1, &info);
00967 chkxer_("SGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00968 infoc_1.ok);
00969 infoc_1.infot = 16;
00970 sggev_("V", "V", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q, &c__1, u, &
00971 c__1, w, &c__1, &info);
00972 chkxer_("SGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00973 infoc_1.ok);
00974 nt += 10;
00975
00976
00977
00978 s_copy(srnamc_1.srnamt, "SGGEVX", (ftnlen)32, (ftnlen)6);
00979 infoc_1.infot = 1;
00980 sggevx_("/", "N", "N", "N", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q,
00981 &c__1, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv,
00982 w, &c__1, iw, bw, &info);
00983 chkxer_("SGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00984 infoc_1.ok);
00985 infoc_1.infot = 2;
00986 sggevx_("N", "/", "N", "N", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q,
00987 &c__1, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv,
00988 w, &c__1, iw, bw, &info);
00989 chkxer_("SGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00990 infoc_1.ok);
00991 infoc_1.infot = 3;
00992 sggevx_("N", "N", "/", "N", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q,
00993 &c__1, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv,
00994 w, &c__1, iw, bw, &info);
00995 chkxer_("SGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00996 infoc_1.ok);
00997 infoc_1.infot = 4;
00998 sggevx_("N", "N", "N", "/", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q,
00999 &c__1, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv,
01000 w, &c__1, iw, bw, &info);
01001 chkxer_("SGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01002 infoc_1.ok);
01003 infoc_1.infot = 5;
01004 sggevx_("N", "N", "N", "N", &c_n1, a, &c__1, b, &c__1, r1, r2, r3, q,
01005 &c__1, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv,
01006 w, &c__1, iw, bw, &info);
01007 chkxer_("SGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01008 infoc_1.ok);
01009 infoc_1.infot = 7;
01010 sggevx_("N", "N", "N", "N", &c__1, a, &c__0, b, &c__1, r1, r2, r3, q,
01011 &c__1, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv,
01012 w, &c__1, iw, bw, &info);
01013 chkxer_("SGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01014 infoc_1.ok);
01015 infoc_1.infot = 9;
01016 sggevx_("N", "N", "N", "N", &c__1, a, &c__1, b, &c__0, r1, r2, r3, q,
01017 &c__1, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv,
01018 w, &c__1, iw, bw, &info);
01019 chkxer_("SGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01020 infoc_1.ok);
01021 infoc_1.infot = 14;
01022 sggevx_("N", "N", "N", "N", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q,
01023 &c__0, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv,
01024 w, &c__1, iw, bw, &info);
01025 chkxer_("SGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01026 infoc_1.ok);
01027 infoc_1.infot = 14;
01028 sggevx_("N", "V", "N", "N", &c__2, a, &c__2, b, &c__2, r1, r2, r3, q,
01029 &c__1, u, &c__2, &c__1, &c__2, ls, rs, &anrm, &bnrm, rce, rcv,
01030 w, &c__1, iw, bw, &info);
01031 chkxer_("SGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01032 infoc_1.ok);
01033 infoc_1.infot = 16;
01034 sggevx_("N", "N", "N", "N", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q,
01035 &c__1, u, &c__0, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv,
01036 w, &c__1, iw, bw, &info);
01037 chkxer_("SGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01038 infoc_1.ok);
01039 infoc_1.infot = 16;
01040 sggevx_("N", "N", "V", "N", &c__2, a, &c__2, b, &c__2, r1, r2, r3, q,
01041 &c__2, u, &c__1, &c__1, &c__2, ls, rs, &anrm, &bnrm, rce, rcv,
01042 w, &c__1, iw, bw, &info);
01043 chkxer_("SGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01044 infoc_1.ok);
01045 infoc_1.infot = 26;
01046 sggevx_("N", "N", "V", "N", &c__2, a, &c__2, b, &c__2, r1, r2, r3, q,
01047 &c__2, u, &c__2, &c__1, &c__2, ls, rs, &anrm, &bnrm, rce, rcv,
01048 w, &c__1, iw, bw, &info);
01049 chkxer_("SGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01050 infoc_1.ok);
01051 nt += 12;
01052
01053
01054
01055 s_copy(srnamc_1.srnamt, "STGEXC", (ftnlen)32, (ftnlen)6);
01056 infoc_1.infot = 3;
01057 stgexc_(&c_true, &c_true, &c_n1, a, &c__1, b, &c__1, q, &c__1, z__, &
01058 c__1, &ifst, &ilst, w, &c__1, &info);
01059 chkxer_("STGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01060 infoc_1.ok);
01061 infoc_1.infot = 5;
01062 stgexc_(&c_true, &c_true, &c__1, a, &c__0, b, &c__1, q, &c__1, z__, &
01063 c__1, &ifst, &ilst, w, &c__1, &info);
01064 chkxer_("STGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01065 infoc_1.ok);
01066 infoc_1.infot = 7;
01067 stgexc_(&c_true, &c_true, &c__1, a, &c__1, b, &c__0, q, &c__1, z__, &
01068 c__1, &ifst, &ilst, w, &c__1, &info);
01069 chkxer_("STGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01070 infoc_1.ok);
01071 infoc_1.infot = 9;
01072 stgexc_(&c_false, &c_true, &c__1, a, &c__1, b, &c__1, q, &c__0, z__, &
01073 c__1, &ifst, &ilst, w, &c__1, &info);
01074 chkxer_("STGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01075 infoc_1.ok);
01076 infoc_1.infot = 9;
01077 stgexc_(&c_true, &c_true, &c__1, a, &c__1, b, &c__1, q, &c__0, z__, &
01078 c__1, &ifst, &ilst, w, &c__1, &info);
01079 chkxer_("STGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01080 infoc_1.ok);
01081 infoc_1.infot = 11;
01082 stgexc_(&c_true, &c_false, &c__1, a, &c__1, b, &c__1, q, &c__1, z__, &
01083 c__0, &ifst, &ilst, w, &c__1, &info);
01084 chkxer_("STGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01085 infoc_1.ok);
01086 infoc_1.infot = 11;
01087 stgexc_(&c_true, &c_true, &c__1, a, &c__1, b, &c__1, q, &c__1, z__, &
01088 c__0, &ifst, &ilst, w, &c__1, &info);
01089 chkxer_("STGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01090 infoc_1.ok);
01091 infoc_1.infot = 15;
01092 stgexc_(&c_true, &c_true, &c__1, a, &c__1, b, &c__1, q, &c__1, z__, &
01093 c__1, &ifst, &ilst, w, &c__0, &info);
01094 chkxer_("STGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01095 infoc_1.ok);
01096 nt += 8;
01097
01098
01099
01100 s_copy(srnamc_1.srnamt, "STGSEN", (ftnlen)32, (ftnlen)6);
01101 infoc_1.infot = 1;
01102 stgsen_(&c_n1, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1,
01103 r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1,
01104 iw, &c__1, &info);
01105 chkxer_("STGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01106 infoc_1.ok);
01107 infoc_1.infot = 5;
01108 stgsen_(&c__1, &c_true, &c_true, sel, &c_n1, a, &c__1, b, &c__1, r1,
01109 r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1,
01110 iw, &c__1, &info);
01111 chkxer_("STGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01112 infoc_1.ok);
01113 infoc_1.infot = 7;
01114 stgsen_(&c__1, &c_true, &c_true, sel, &c__1, a, &c__0, b, &c__1, r1,
01115 r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1,
01116 iw, &c__1, &info);
01117 chkxer_("STGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01118 infoc_1.ok);
01119 infoc_1.infot = 9;
01120 stgsen_(&c__1, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__0, r1,
01121 r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1,
01122 iw, &c__1, &info);
01123 chkxer_("STGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01124 infoc_1.ok);
01125 infoc_1.infot = 14;
01126 stgsen_(&c__1, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1,
01127 r2, r3, q, &c__0, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1,
01128 iw, &c__1, &info);
01129 chkxer_("STGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01130 infoc_1.ok);
01131 infoc_1.infot = 16;
01132 stgsen_(&c__1, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1,
01133 r2, r3, q, &c__1, z__, &c__0, &m, &tola, &tolb, rcv, w, &c__1,
01134 iw, &c__1, &info);
01135 chkxer_("STGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01136 infoc_1.ok);
01137 infoc_1.infot = 22;
01138 stgsen_(&c__0, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1,
01139 r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1,
01140 iw, &c__1, &info);
01141 chkxer_("STGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01142 infoc_1.ok);
01143 infoc_1.infot = 22;
01144 stgsen_(&c__1, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1,
01145 r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1,
01146 iw, &c__1, &info);
01147 chkxer_("STGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01148 infoc_1.ok);
01149 infoc_1.infot = 22;
01150 stgsen_(&c__2, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1,
01151 r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1,
01152 iw, &c__1, &info);
01153 chkxer_("STGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01154 infoc_1.ok);
01155 infoc_1.infot = 24;
01156 stgsen_(&c__0, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1,
01157 r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &
01158 c__20, iw, &c__0, &info);
01159 chkxer_("STGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01160 infoc_1.ok);
01161 infoc_1.infot = 24;
01162 stgsen_(&c__1, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1,
01163 r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &
01164 c__20, iw, &c__0, &info);
01165 chkxer_("STGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01166 infoc_1.ok);
01167 infoc_1.infot = 24;
01168 stgsen_(&c__2, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1,
01169 r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &
01170 c__20, iw, &c__1, &info);
01171 chkxer_("STGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01172 infoc_1.ok);
01173 nt += 12;
01174
01175
01176
01177 s_copy(srnamc_1.srnamt, "STGSNA", (ftnlen)32, (ftnlen)6);
01178 infoc_1.infot = 1;
01179 stgsna_("/", "A", sel, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &c__1,
01180 r1, r2, &c__1, &m, w, &c__1, iw, &info);
01181 chkxer_("STGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01182 infoc_1.ok);
01183 infoc_1.infot = 2;
01184 stgsna_("B", "/", sel, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &c__1,
01185 r1, r2, &c__1, &m, w, &c__1, iw, &info);
01186 chkxer_("STGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01187 infoc_1.ok);
01188 infoc_1.infot = 4;
01189 stgsna_("B", "A", sel, &c_n1, a, &c__1, b, &c__1, q, &c__1, u, &c__1,
01190 r1, r2, &c__1, &m, w, &c__1, iw, &info);
01191 chkxer_("STGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01192 infoc_1.ok);
01193 infoc_1.infot = 6;
01194 stgsna_("B", "A", sel, &c__1, a, &c__0, b, &c__1, q, &c__1, u, &c__1,
01195 r1, r2, &c__1, &m, w, &c__1, iw, &info);
01196 chkxer_("STGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01197 infoc_1.ok);
01198 infoc_1.infot = 8;
01199 stgsna_("B", "A", sel, &c__1, a, &c__1, b, &c__0, q, &c__1, u, &c__1,
01200 r1, r2, &c__1, &m, w, &c__1, iw, &info);
01201 chkxer_("STGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01202 infoc_1.ok);
01203 infoc_1.infot = 10;
01204 stgsna_("E", "A", sel, &c__1, a, &c__1, b, &c__1, q, &c__0, u, &c__1,
01205 r1, r2, &c__1, &m, w, &c__1, iw, &info);
01206 chkxer_("STGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01207 infoc_1.ok);
01208 infoc_1.infot = 12;
01209 stgsna_("E", "A", sel, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &c__0,
01210 r1, r2, &c__1, &m, w, &c__1, iw, &info);
01211 chkxer_("STGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01212 infoc_1.ok);
01213 infoc_1.infot = 15;
01214 stgsna_("E", "A", sel, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &c__1,
01215 r1, r2, &c__0, &m, w, &c__1, iw, &info);
01216 chkxer_("STGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01217 infoc_1.ok);
01218 infoc_1.infot = 18;
01219 stgsna_("E", "A", sel, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &c__1,
01220 r1, r2, &c__1, &m, w, &c__0, iw, &info);
01221 chkxer_("STGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01222 infoc_1.ok);
01223 nt += 9;
01224
01225
01226
01227 s_copy(srnamc_1.srnamt, "STGSYL", (ftnlen)32, (ftnlen)6);
01228 infoc_1.infot = 1;
01229 stgsyl_("/", &c__0, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &
01230 c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
01231 chkxer_("STGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01232 infoc_1.ok);
01233 infoc_1.infot = 2;
01234 stgsyl_("N", &c_n1, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &
01235 c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
01236 chkxer_("STGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01237 infoc_1.ok);
01238 infoc_1.infot = 3;
01239 stgsyl_("N", &c__0, &c__0, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &
01240 c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
01241 chkxer_("STGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01242 infoc_1.ok);
01243 infoc_1.infot = 4;
01244 stgsyl_("N", &c__0, &c__1, &c__0, a, &c__1, b, &c__1, q, &c__1, u, &
01245 c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
01246 chkxer_("STGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01247 infoc_1.ok);
01248 infoc_1.infot = 6;
01249 stgsyl_("N", &c__0, &c__1, &c__1, a, &c__0, b, &c__1, q, &c__1, u, &
01250 c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
01251 chkxer_("STGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01252 infoc_1.ok);
01253 infoc_1.infot = 8;
01254 stgsyl_("N", &c__0, &c__1, &c__1, a, &c__1, b, &c__0, q, &c__1, u, &
01255 c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
01256 chkxer_("STGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01257 infoc_1.ok);
01258 infoc_1.infot = 10;
01259 stgsyl_("N", &c__0, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__0, u, &
01260 c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
01261 chkxer_("STGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01262 infoc_1.ok);
01263 infoc_1.infot = 12;
01264 stgsyl_("N", &c__0, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &
01265 c__0, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
01266 chkxer_("STGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01267 infoc_1.ok);
01268 infoc_1.infot = 14;
01269 stgsyl_("N", &c__0, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &
01270 c__1, v, &c__0, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
01271 chkxer_("STGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01272 infoc_1.ok);
01273 infoc_1.infot = 16;
01274 stgsyl_("N", &c__0, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &
01275 c__1, v, &c__1, z__, &c__0, &scale, &dif, w, &c__1, iw, &info);
01276 chkxer_("STGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01277 infoc_1.ok);
01278 infoc_1.infot = 20;
01279 stgsyl_("N", &c__1, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &
01280 c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
01281 chkxer_("STGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01282 infoc_1.ok);
01283 infoc_1.infot = 20;
01284 stgsyl_("N", &c__2, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &
01285 c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
01286 chkxer_("STGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
01287 infoc_1.ok);
01288 nt += 12;
01289 }
01290
01291
01292
01293 if (infoc_1.ok) {
01294 io___38.ciunit = infoc_1.nout;
01295 s_wsfe(&io___38);
01296 do_fio(&c__1, path, (ftnlen)3);
01297 do_fio(&c__1, (char *)&nt, (ftnlen)sizeof(integer));
01298 e_wsfe();
01299 } else {
01300 io___39.ciunit = infoc_1.nout;
01301 s_wsfe(&io___39);
01302 do_fio(&c__1, path, (ftnlen)3);
01303 e_wsfe();
01304 }
01305
01306
01307 return 0;
01308
01309
01310
01311 }