serrgg.c
Go to the documentation of this file.
00001 /* serrgg.f -- translated by f2c (version 20061008).
00002    You must link the resulting object file with libf2c:
00003         on Microsoft Windows system, link with libf2c.lib;
00004         on Linux or Unix systems, link with .../path/to/libf2c.a -lm
00005         or, if you install libf2c.a in a standard place, with -lf2c -lm
00006         -- in that order, at the end of the command line, as in
00007                 cc *.o -lf2c -lm
00008         Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
00009 
00010                 http://www.netlib.org/f2c/libf2c.zip
00011 */
00012 
00013 #include "f2c.h"
00014 #include "blaswrap.h"
00015 
00016 /* Common Block Declarations */
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 /* Table of constant values */
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 /* Subroutine */ int serrgg_(char *path, integer *nunit)
00045 {
00046     /* Format strings */
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     /* Builtin functions */
00053     integer s_wsle(cilist *), e_wsle(void);
00054     /* Subroutine */ int s_copy(char *, char *, ftnlen, ftnlen);
00055     integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe(void);
00056 
00057     /* Local variables */
00058     real a[9]   /* was [3][3] */, b[9]  /* was [3][3] */;
00059     integer i__, j, m;
00060     real q[9]   /* was [3][3] */, u[9]  /* was [3][3] */, v[9]  /* was [3][3] 
00061             */, w[18], z__[9]   /* was [3][3] */;
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 /* Subroutine */ 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 /* Subroutine */ 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 /* Subroutine */ 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 /* Subroutine */ 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 /* Subroutine */ 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 /* Subroutine */ 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     /* Fortran I/O blocks */
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 /*  -- LAPACK test routine (version 3.1) -- */
00148 /*     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. */
00149 /*     November 2006 */
00150 
00151 /*     .. Scalar Arguments .. */
00152 /*     .. */
00153 
00154 /*  Purpose */
00155 /*  ======= */
00156 
00157 /*  SERRGG tests the error exits for SGGES, SGGESX, SGGEV, SGGEVX, */
00158 /*  SGGGLM, SGGHRD, SGGLSE, SGGQRF, SGGRQF, SGGSVD, SGGSVP, SHGEQZ, */
00159 /*  STGEVC, STGEXC, STGSEN, STGSJA, STGSNA, and STGSYL. */
00160 
00161 /*  Arguments */
00162 /*  ========= */
00163 
00164 /*  PATH    (input) CHARACTER*3 */
00165 /*          The LAPACK path name for the routines to be tested. */
00166 
00167 /*  NUNIT   (input) INTEGER */
00168 /*          The unit number for output. */
00169 
00170 /*  ===================================================================== */
00171 
00172 /*     .. Parameters .. */
00173 /*     .. */
00174 /*     .. Local Scalars .. */
00175 /*     .. */
00176 /*     .. Local Arrays .. */
00177 /*     .. */
00178 /*     .. External Functions .. */
00179 /*     .. */
00180 /*     .. External Subroutines .. */
00181 /*     .. */
00182 /*     .. Scalars in Common .. */
00183 /*     .. */
00184 /*     .. Common blocks .. */
00185 /*     .. */
00186 /*     .. Executable Statements .. */
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 /*     Set the variables to innocuous values. */
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 /* L10: */
00202         }
00203 /* L20: */
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 /* L30: */
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 /*     Test error exits for the GG path. */
00218 
00219     if (lsamen_(&c__2, c2, "GG")) {
00220 
00221 /*        SGGHRD */
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 /*        SHGEQZ */
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 /*        STGEVC */
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 /*     Test error exits for the GSV path. */
00372 
00373     } else if (lsamen_(&c__3, path, "GSV")) {
00374 
00375 /*        SGGSVD */
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 /*        SGGSVP */
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 /*        STGSJA */
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 /*     Test error exits for the GLM path. */
00589 
00590     } else if (lsamen_(&c__3, path, "GLM")) {
00591 
00592 /*        SGGGLM */
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 /*     Test error exits for the LSE path. */
00638 
00639     } else if (lsamen_(&c__3, path, "LSE")) {
00640 
00641 /*        SGGLSE */
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 /*     Test error exits for the GQR path. */
00687 
00688     } else if (lsamen_(&c__3, path, "GQR")) {
00689 
00690 /*        SGGQRF */
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 /*        SGGRQF */
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 /*     Test error exits for the SGS, SGV, SGX, and SXV paths. */
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 /*        SGGES */
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 /*        SGGESX */
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 /*        SGGEV */
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 /*        SGGEVX */
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 /*        STGEXC */
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 /*        STGSEN */
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 /*        STGSNA */
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 /*        STGSYL */
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 /*     Print a summary line. */
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 /*     End of SERRGG */
01310 
01311 } /* serrgg_ */


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:56:03