serrhs.c
Go to the documentation of this file.
00001 /* serrhs.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__3 = 3;
00038 static integer c__4 = 4;
00039 
00040 /* Subroutine */ int serrhs_(char *path, integer *nunit)
00041 {
00042     /* Format strings */
00043     static char fmt_9999[] = "(1x,a3,\002 routines passed the tests of the e"
00044             "rror exits\002,\002 (\002,i3,\002 tests done)\002)";
00045     static char fmt_9998[] = "(\002 *** \002,a3,\002 routines failed the tes"
00046             "ts of the error \002,\002exits ***\002)";
00047 
00048     /* Builtin functions */
00049     integer s_wsle(cilist *), e_wsle(void);
00050     /* Subroutine */ int s_copy(char *, char *, ftnlen, ftnlen);
00051     integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe(void);
00052 
00053     /* Local variables */
00054     real a[9]   /* was [3][3] */, c__[9]        /* was [3][3] */;
00055     integer i__, j, m;
00056     real s[3], w[28];
00057     char c2[2];
00058     real wi[3];
00059     integer nt;
00060     real vl[9]  /* was [3][3] */, vr[9] /* was [3][3] */, wr[3];
00061     integer ihi, ilo;
00062     logical sel[3];
00063     real tau[3];
00064     integer info;
00065     extern /* Subroutine */ int sgebak_(char *, char *, integer *, integer *, 
00066             integer *, real *, integer *, real *, integer *, integer *), sgebal_(char *, integer *, real *, integer *, 
00067             integer *, integer *, real *, integer *);
00068     integer ifaill[3], ifailr[3];
00069     extern /* Subroutine */ int sgehrd_(integer *, integer *, integer *, real 
00070             *, integer *, real *, real *, integer *, integer *);
00071     extern logical lsamen_(integer *, char *, char *);
00072     extern /* Subroutine */ int chkxer_(char *, integer *, integer *, logical 
00073             *, logical *), shsein_(char *, char *, char *, logical *, 
00074             integer *, real *, integer *, real *, real *, real *, integer *, 
00075             real *, integer *, integer *, integer *, real *, integer *, 
00076             integer *, integer *), sorghr_(integer *, 
00077             integer *, integer *, real *, integer *, real *, real *, integer *
00078 , integer *), shseqr_(char *, char *, integer *, integer *, 
00079             integer *, real *, integer *, real *, real *, real *, integer *, 
00080             real *, integer *, integer *), strevc_(char *, 
00081             char *, logical *, integer *, real *, integer *, real *, integer *
00082 , real *, integer *, integer *, integer *, real *, integer *), sormhr_(char *, char *, integer *, integer *, 
00083             integer *, integer *, real *, integer *, real *, real *, integer *
00084 , real *, integer *, integer *);
00085 
00086     /* Fortran I/O blocks */
00087     static cilist io___1 = { 0, 0, 0, 0, 0 };
00088     static cilist io___22 = { 0, 0, 0, fmt_9999, 0 };
00089     static cilist io___23 = { 0, 0, 0, fmt_9998, 0 };
00090 
00091 
00092 
00093 /*  -- LAPACK test routine (version 3.1) -- */
00094 /*     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. */
00095 /*     November 2006 */
00096 
00097 /*     .. Scalar Arguments .. */
00098 /*     .. */
00099 
00100 /*  Purpose */
00101 /*  ======= */
00102 
00103 /*  SERRHS tests the error exits for SGEBAK, SGEBAL, SGEHRD, SORGHR, */
00104 /*  SORMHR, SHSEQR, SHSEIN, and STREVC. */
00105 
00106 /*  Arguments */
00107 /*  ========= */
00108 
00109 /*  PATH    (input) CHARACTER*3 */
00110 /*          The LAPACK path name for the routines to be tested. */
00111 
00112 /*  NUNIT   (input) INTEGER */
00113 /*          The unit number for output. */
00114 
00115 /*  ===================================================================== */
00116 
00117 /*     .. Parameters .. */
00118 /*     .. */
00119 /*     .. Local Scalars .. */
00120 /*     .. */
00121 /*     .. Local Arrays .. */
00122 /*     .. */
00123 /*     .. External Functions .. */
00124 /*     .. */
00125 /*     .. External Subroutines .. */
00126 /*     .. */
00127 /*     .. Intrinsic Functions .. */
00128 /*     .. */
00129 /*     .. Scalars in Common .. */
00130 /*     .. */
00131 /*     .. Common blocks .. */
00132 /*     .. */
00133 /*     .. Executable Statements .. */
00134 
00135     infoc_1.nout = *nunit;
00136     io___1.ciunit = infoc_1.nout;
00137     s_wsle(&io___1);
00138     e_wsle();
00139     s_copy(c2, path + 1, (ftnlen)2, (ftnlen)2);
00140 
00141 /*     Set the variables to innocuous values. */
00142 
00143     for (j = 1; j <= 3; ++j) {
00144         for (i__ = 1; i__ <= 3; ++i__) {
00145             a[i__ + j * 3 - 4] = 1.f / (real) (i__ + j);
00146 /* L10: */
00147         }
00148         wi[j - 1] = (real) j;
00149         sel[j - 1] = TRUE_;
00150 /* L20: */
00151     }
00152     infoc_1.ok = TRUE_;
00153     nt = 0;
00154 
00155 /*     Test error exits of the nonsymmetric eigenvalue routines. */
00156 
00157     if (lsamen_(&c__2, c2, "HS")) {
00158 
00159 /*        SGEBAL */
00160 
00161         s_copy(srnamc_1.srnamt, "SGEBAL", (ftnlen)32, (ftnlen)6);
00162         infoc_1.infot = 1;
00163         sgebal_("/", &c__0, a, &c__1, &ilo, &ihi, s, &info);
00164         chkxer_("SGEBAL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00165                 infoc_1.ok);
00166         infoc_1.infot = 2;
00167         sgebal_("N", &c_n1, a, &c__1, &ilo, &ihi, s, &info);
00168         chkxer_("SGEBAL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00169                 infoc_1.ok);
00170         infoc_1.infot = 4;
00171         sgebal_("N", &c__2, a, &c__1, &ilo, &ihi, s, &info);
00172         chkxer_("SGEBAL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00173                 infoc_1.ok);
00174         nt += 3;
00175 
00176 /*        SGEBAK */
00177 
00178         s_copy(srnamc_1.srnamt, "SGEBAK", (ftnlen)32, (ftnlen)6);
00179         infoc_1.infot = 1;
00180         sgebak_("/", "R", &c__0, &c__1, &c__0, s, &c__0, a, &c__1, &info);
00181         chkxer_("SGEBAK", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00182                 infoc_1.ok);
00183         infoc_1.infot = 2;
00184         sgebak_("N", "/", &c__0, &c__1, &c__0, s, &c__0, a, &c__1, &info);
00185         chkxer_("SGEBAK", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00186                 infoc_1.ok);
00187         infoc_1.infot = 3;
00188         sgebak_("N", "R", &c_n1, &c__1, &c__0, s, &c__0, a, &c__1, &info);
00189         chkxer_("SGEBAK", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00190                 infoc_1.ok);
00191         infoc_1.infot = 4;
00192         sgebak_("N", "R", &c__0, &c__0, &c__0, s, &c__0, a, &c__1, &info);
00193         chkxer_("SGEBAK", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00194                 infoc_1.ok);
00195         infoc_1.infot = 4;
00196         sgebak_("N", "R", &c__0, &c__2, &c__0, s, &c__0, a, &c__1, &info);
00197         chkxer_("SGEBAK", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00198                 infoc_1.ok);
00199         infoc_1.infot = 5;
00200         sgebak_("N", "R", &c__2, &c__2, &c__1, s, &c__0, a, &c__2, &info);
00201         chkxer_("SGEBAK", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00202                 infoc_1.ok);
00203         infoc_1.infot = 5;
00204         sgebak_("N", "R", &c__0, &c__1, &c__1, s, &c__0, a, &c__1, &info);
00205         chkxer_("SGEBAK", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00206                 infoc_1.ok);
00207         infoc_1.infot = 7;
00208         sgebak_("N", "R", &c__0, &c__1, &c__0, s, &c_n1, a, &c__1, &info);
00209         chkxer_("SGEBAK", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00210                 infoc_1.ok);
00211         infoc_1.infot = 9;
00212         sgebak_("N", "R", &c__2, &c__1, &c__2, s, &c__0, a, &c__1, &info);
00213         chkxer_("SGEBAK", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00214                 infoc_1.ok);
00215         nt += 9;
00216 
00217 /*        SGEHRD */
00218 
00219         s_copy(srnamc_1.srnamt, "SGEHRD", (ftnlen)32, (ftnlen)6);
00220         infoc_1.infot = 1;
00221         sgehrd_(&c_n1, &c__1, &c__1, a, &c__1, tau, w, &c__1, &info);
00222         chkxer_("SGEHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00223                 infoc_1.ok);
00224         infoc_1.infot = 2;
00225         sgehrd_(&c__0, &c__0, &c__0, a, &c__1, tau, w, &c__1, &info);
00226         chkxer_("SGEHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00227                 infoc_1.ok);
00228         infoc_1.infot = 2;
00229         sgehrd_(&c__0, &c__2, &c__0, a, &c__1, tau, w, &c__1, &info);
00230         chkxer_("SGEHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00231                 infoc_1.ok);
00232         infoc_1.infot = 3;
00233         sgehrd_(&c__1, &c__1, &c__0, a, &c__1, tau, w, &c__1, &info);
00234         chkxer_("SGEHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00235                 infoc_1.ok);
00236         infoc_1.infot = 3;
00237         sgehrd_(&c__0, &c__1, &c__1, a, &c__1, tau, w, &c__1, &info);
00238         chkxer_("SGEHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00239                 infoc_1.ok);
00240         infoc_1.infot = 5;
00241         sgehrd_(&c__2, &c__1, &c__1, a, &c__1, tau, w, &c__2, &info);
00242         chkxer_("SGEHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00243                 infoc_1.ok);
00244         infoc_1.infot = 8;
00245         sgehrd_(&c__2, &c__1, &c__2, a, &c__2, tau, w, &c__1, &info);
00246         chkxer_("SGEHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00247                 infoc_1.ok);
00248         nt += 7;
00249 
00250 /*        SORGHR */
00251 
00252         s_copy(srnamc_1.srnamt, "SORGHR", (ftnlen)32, (ftnlen)6);
00253         infoc_1.infot = 1;
00254         sorghr_(&c_n1, &c__1, &c__1, a, &c__1, tau, w, &c__1, &info);
00255         chkxer_("SORGHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00256                 infoc_1.ok);
00257         infoc_1.infot = 2;
00258         sorghr_(&c__0, &c__0, &c__0, a, &c__1, tau, w, &c__1, &info);
00259         chkxer_("SORGHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00260                 infoc_1.ok);
00261         infoc_1.infot = 2;
00262         sorghr_(&c__0, &c__2, &c__0, a, &c__1, tau, w, &c__1, &info);
00263         chkxer_("SORGHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00264                 infoc_1.ok);
00265         infoc_1.infot = 3;
00266         sorghr_(&c__1, &c__1, &c__0, a, &c__1, tau, w, &c__1, &info);
00267         chkxer_("SORGHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00268                 infoc_1.ok);
00269         infoc_1.infot = 3;
00270         sorghr_(&c__0, &c__1, &c__1, a, &c__1, tau, w, &c__1, &info);
00271         chkxer_("SORGHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00272                 infoc_1.ok);
00273         infoc_1.infot = 5;
00274         sorghr_(&c__2, &c__1, &c__1, a, &c__1, tau, w, &c__1, &info);
00275         chkxer_("SORGHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00276                 infoc_1.ok);
00277         infoc_1.infot = 8;
00278         sorghr_(&c__3, &c__1, &c__3, a, &c__3, tau, w, &c__1, &info);
00279         chkxer_("SORGHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00280                 infoc_1.ok);
00281         nt += 7;
00282 
00283 /*        SORMHR */
00284 
00285         s_copy(srnamc_1.srnamt, "SORMHR", (ftnlen)32, (ftnlen)6);
00286         infoc_1.infot = 1;
00287         sormhr_("/", "N", &c__0, &c__0, &c__1, &c__0, a, &c__1, tau, c__, &
00288                 c__1, w, &c__1, &info);
00289         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00290                 infoc_1.ok);
00291         infoc_1.infot = 2;
00292         sormhr_("L", "/", &c__0, &c__0, &c__1, &c__0, a, &c__1, tau, c__, &
00293                 c__1, w, &c__1, &info);
00294         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00295                 infoc_1.ok);
00296         infoc_1.infot = 3;
00297         sormhr_("L", "N", &c_n1, &c__0, &c__1, &c__0, a, &c__1, tau, c__, &
00298                 c__1, w, &c__1, &info);
00299         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00300                 infoc_1.ok);
00301         infoc_1.infot = 4;
00302         sormhr_("L", "N", &c__0, &c_n1, &c__1, &c__0, a, &c__1, tau, c__, &
00303                 c__1, w, &c__1, &info);
00304         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00305                 infoc_1.ok);
00306         infoc_1.infot = 5;
00307         sormhr_("L", "N", &c__0, &c__0, &c__0, &c__0, a, &c__1, tau, c__, &
00308                 c__1, w, &c__1, &info);
00309         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00310                 infoc_1.ok);
00311         infoc_1.infot = 5;
00312         sormhr_("L", "N", &c__0, &c__0, &c__2, &c__0, a, &c__1, tau, c__, &
00313                 c__1, w, &c__1, &info);
00314         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00315                 infoc_1.ok);
00316         infoc_1.infot = 5;
00317         sormhr_("L", "N", &c__1, &c__2, &c__2, &c__1, a, &c__1, tau, c__, &
00318                 c__1, w, &c__2, &info);
00319         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00320                 infoc_1.ok);
00321         infoc_1.infot = 5;
00322         sormhr_("R", "N", &c__2, &c__1, &c__2, &c__1, a, &c__1, tau, c__, &
00323                 c__2, w, &c__2, &info);
00324         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00325                 infoc_1.ok);
00326         infoc_1.infot = 6;
00327         sormhr_("L", "N", &c__1, &c__1, &c__1, &c__0, a, &c__1, tau, c__, &
00328                 c__1, w, &c__1, &info);
00329         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00330                 infoc_1.ok);
00331         infoc_1.infot = 6;
00332         sormhr_("L", "N", &c__0, &c__1, &c__1, &c__1, a, &c__1, tau, c__, &
00333                 c__1, w, &c__1, &info);
00334         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00335                 infoc_1.ok);
00336         infoc_1.infot = 6;
00337         sormhr_("R", "N", &c__1, &c__0, &c__1, &c__1, a, &c__1, tau, c__, &
00338                 c__1, w, &c__1, &info);
00339         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00340                 infoc_1.ok);
00341         infoc_1.infot = 8;
00342         sormhr_("L", "N", &c__2, &c__1, &c__1, &c__1, a, &c__1, tau, c__, &
00343                 c__2, w, &c__1, &info);
00344         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00345                 infoc_1.ok);
00346         infoc_1.infot = 8;
00347         sormhr_("R", "N", &c__1, &c__2, &c__1, &c__1, a, &c__1, tau, c__, &
00348                 c__1, w, &c__1, &info);
00349         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00350                 infoc_1.ok);
00351         infoc_1.infot = 11;
00352         sormhr_("L", "N", &c__2, &c__1, &c__1, &c__1, a, &c__2, tau, c__, &
00353                 c__1, w, &c__1, &info);
00354         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00355                 infoc_1.ok);
00356         infoc_1.infot = 13;
00357         sormhr_("L", "N", &c__1, &c__2, &c__1, &c__1, a, &c__1, tau, c__, &
00358                 c__1, w, &c__1, &info);
00359         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00360                 infoc_1.ok);
00361         infoc_1.infot = 13;
00362         sormhr_("R", "N", &c__2, &c__1, &c__1, &c__1, a, &c__1, tau, c__, &
00363                 c__2, w, &c__1, &info);
00364         chkxer_("SORMHR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00365                 infoc_1.ok);
00366         nt += 16;
00367 
00368 /*        SHSEQR */
00369 
00370         s_copy(srnamc_1.srnamt, "SHSEQR", (ftnlen)32, (ftnlen)6);
00371         infoc_1.infot = 1;
00372         shseqr_("/", "N", &c__0, &c__1, &c__0, a, &c__1, wr, wi, c__, &c__1, 
00373                 w, &c__1, &info);
00374         chkxer_("SHSEQR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00375                 infoc_1.ok);
00376         infoc_1.infot = 2;
00377         shseqr_("E", "/", &c__0, &c__1, &c__0, a, &c__1, wr, wi, c__, &c__1, 
00378                 w, &c__1, &info);
00379         chkxer_("SHSEQR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00380                 infoc_1.ok);
00381         infoc_1.infot = 3;
00382         shseqr_("E", "N", &c_n1, &c__1, &c__0, a, &c__1, wr, wi, c__, &c__1, 
00383                 w, &c__1, &info);
00384         chkxer_("SHSEQR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00385                 infoc_1.ok);
00386         infoc_1.infot = 4;
00387         shseqr_("E", "N", &c__0, &c__0, &c__0, a, &c__1, wr, wi, c__, &c__1, 
00388                 w, &c__1, &info);
00389         chkxer_("SHSEQR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00390                 infoc_1.ok);
00391         infoc_1.infot = 4;
00392         shseqr_("E", "N", &c__0, &c__2, &c__0, a, &c__1, wr, wi, c__, &c__1, 
00393                 w, &c__1, &info);
00394         chkxer_("SHSEQR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00395                 infoc_1.ok);
00396         infoc_1.infot = 5;
00397         shseqr_("E", "N", &c__1, &c__1, &c__0, a, &c__1, wr, wi, c__, &c__1, 
00398                 w, &c__1, &info);
00399         chkxer_("SHSEQR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00400                 infoc_1.ok);
00401         infoc_1.infot = 5;
00402         shseqr_("E", "N", &c__1, &c__1, &c__2, a, &c__1, wr, wi, c__, &c__1, 
00403                 w, &c__1, &info);
00404         chkxer_("SHSEQR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00405                 infoc_1.ok);
00406         infoc_1.infot = 7;
00407         shseqr_("E", "N", &c__2, &c__1, &c__2, a, &c__1, wr, wi, c__, &c__2, 
00408                 w, &c__1, &info);
00409         chkxer_("SHSEQR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00410                 infoc_1.ok);
00411         infoc_1.infot = 11;
00412         shseqr_("E", "V", &c__2, &c__1, &c__2, a, &c__2, wr, wi, c__, &c__1, 
00413                 w, &c__1, &info);
00414         chkxer_("SHSEQR", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00415                 infoc_1.ok);
00416         nt += 9;
00417 
00418 /*        SHSEIN */
00419 
00420         s_copy(srnamc_1.srnamt, "SHSEIN", (ftnlen)32, (ftnlen)6);
00421         infoc_1.infot = 1;
00422         shsein_("/", "N", "N", sel, &c__0, a, &c__1, wr, wi, vl, &c__1, vr, &
00423                 c__1, &c__0, &m, w, ifaill, ifailr, &info);
00424         chkxer_("SHSEIN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00425                 infoc_1.ok);
00426         infoc_1.infot = 2;
00427         shsein_("R", "/", "N", sel, &c__0, a, &c__1, wr, wi, vl, &c__1, vr, &
00428                 c__1, &c__0, &m, w, ifaill, ifailr, &info);
00429         chkxer_("SHSEIN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00430                 infoc_1.ok);
00431         infoc_1.infot = 3;
00432         shsein_("R", "N", "/", sel, &c__0, a, &c__1, wr, wi, vl, &c__1, vr, &
00433                 c__1, &c__0, &m, w, ifaill, ifailr, &info);
00434         chkxer_("SHSEIN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00435                 infoc_1.ok);
00436         infoc_1.infot = 5;
00437         shsein_("R", "N", "N", sel, &c_n1, a, &c__1, wr, wi, vl, &c__1, vr, &
00438                 c__1, &c__0, &m, w, ifaill, ifailr, &info);
00439         chkxer_("SHSEIN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00440                 infoc_1.ok);
00441         infoc_1.infot = 7;
00442         shsein_("R", "N", "N", sel, &c__2, a, &c__1, wr, wi, vl, &c__1, vr, &
00443                 c__2, &c__4, &m, w, ifaill, ifailr, &info);
00444         chkxer_("SHSEIN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00445                 infoc_1.ok);
00446         infoc_1.infot = 11;
00447         shsein_("L", "N", "N", sel, &c__2, a, &c__2, wr, wi, vl, &c__1, vr, &
00448                 c__1, &c__4, &m, w, ifaill, ifailr, &info);
00449         chkxer_("SHSEIN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00450                 infoc_1.ok);
00451         infoc_1.infot = 13;
00452         shsein_("R", "N", "N", sel, &c__2, a, &c__2, wr, wi, vl, &c__1, vr, &
00453                 c__1, &c__4, &m, w, ifaill, ifailr, &info);
00454         chkxer_("SHSEIN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00455                 infoc_1.ok);
00456         infoc_1.infot = 14;
00457         shsein_("R", "N", "N", sel, &c__2, a, &c__2, wr, wi, vl, &c__1, vr, &
00458                 c__2, &c__1, &m, w, ifaill, ifailr, &info);
00459         chkxer_("SHSEIN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00460                 infoc_1.ok);
00461         nt += 8;
00462 
00463 /*        STREVC */
00464 
00465         s_copy(srnamc_1.srnamt, "STREVC", (ftnlen)32, (ftnlen)6);
00466         infoc_1.infot = 1;
00467         strevc_("/", "A", sel, &c__0, a, &c__1, vl, &c__1, vr, &c__1, &c__0, &
00468                 m, w, &info);
00469         chkxer_("STREVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00470                 infoc_1.ok);
00471         infoc_1.infot = 2;
00472         strevc_("L", "/", sel, &c__0, a, &c__1, vl, &c__1, vr, &c__1, &c__0, &
00473                 m, w, &info);
00474         chkxer_("STREVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00475                 infoc_1.ok);
00476         infoc_1.infot = 4;
00477         strevc_("L", "A", sel, &c_n1, a, &c__1, vl, &c__1, vr, &c__1, &c__0, &
00478                 m, w, &info);
00479         chkxer_("STREVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00480                 infoc_1.ok);
00481         infoc_1.infot = 6;
00482         strevc_("L", "A", sel, &c__2, a, &c__1, vl, &c__2, vr, &c__1, &c__4, &
00483                 m, w, &info);
00484         chkxer_("STREVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00485                 infoc_1.ok);
00486         infoc_1.infot = 8;
00487         strevc_("L", "A", sel, &c__2, a, &c__2, vl, &c__1, vr, &c__1, &c__4, &
00488                 m, w, &info);
00489         chkxer_("STREVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00490                 infoc_1.ok);
00491         infoc_1.infot = 10;
00492         strevc_("R", "A", sel, &c__2, a, &c__2, vl, &c__1, vr, &c__1, &c__4, &
00493                 m, w, &info);
00494         chkxer_("STREVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00495                 infoc_1.ok);
00496         infoc_1.infot = 11;
00497         strevc_("L", "A", sel, &c__2, a, &c__2, vl, &c__2, vr, &c__1, &c__1, &
00498                 m, w, &info);
00499         chkxer_("STREVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00500                 infoc_1.ok);
00501         nt += 7;
00502     }
00503 
00504 /*     Print a summary line. */
00505 
00506     if (infoc_1.ok) {
00507         io___22.ciunit = infoc_1.nout;
00508         s_wsfe(&io___22);
00509         do_fio(&c__1, path, (ftnlen)3);
00510         do_fio(&c__1, (char *)&nt, (ftnlen)sizeof(integer));
00511         e_wsfe();
00512     } else {
00513         io___23.ciunit = infoc_1.nout;
00514         s_wsfe(&io___23);
00515         do_fio(&c__1, path, (ftnlen)3);
00516         e_wsfe();
00517     }
00518 
00519 
00520     return 0;
00521 
00522 /*     End of SERRHS */
00523 
00524 } /* serrhs_ */


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