swiftnav: cerrhs.c Source File

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