zerrtr.c
Go to the documentation of this file.
00001 /* zerrtr.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 
00038 /* Subroutine */ int zerrtr_(char *path, integer *nunit)
00039 {
00040     /* Builtin functions */
00041     integer s_wsle(cilist *), e_wsle(void);
00042     /* Subroutine */ int s_copy(char *, char *, ftnlen, ftnlen);
00043 
00044     /* Local variables */
00045     doublecomplex a[4]  /* was [2][2] */, b[2], w[2], x[2];
00046     char c2[2];
00047     doublereal r1[2], r2[2], rw[2];
00048     integer info;
00049     doublereal scale, rcond;
00050     extern /* Subroutine */ int ztrti2_(char *, char *, integer *, 
00051             doublecomplex *, integer *, integer *), alaesm_(
00052             char *, logical *, integer *);
00053     extern logical lsamen_(integer *, char *, char *);
00054     extern /* Subroutine */ int chkxer_(char *, integer *, integer *, logical 
00055             *, logical *), zlatbs_(char *, char *, char *, char *, 
00056             integer *, integer *, doublecomplex *, integer *, doublecomplex *, 
00057              doublereal *, doublereal *, integer *), ztbcon_(char *, char *, char *, integer *, integer *, 
00058             doublecomplex *, integer *, doublereal *, doublecomplex *, 
00059             doublereal *, integer *), ztbrfs_(char *, 
00060             char *, char *, integer *, integer *, integer *, doublecomplex *, 
00061             integer *, doublecomplex *, integer *, doublecomplex *, integer *, 
00062              doublereal *, doublereal *, doublecomplex *, doublereal *, 
00063             integer *), zlatps_(char *, char *, char *
00064 , char *, integer *, doublecomplex *, doublecomplex *, doublereal 
00065             *, doublereal *, integer *), 
00066             ztpcon_(char *, char *, char *, integer *, doublecomplex *, 
00067             doublereal *, doublecomplex *, doublereal *, integer *), zlatrs_(char *, char *, char *, char *, integer *
00068 , doublecomplex *, integer *, doublecomplex *, doublereal *, 
00069             doublereal *, integer *), ztrcon_(
00070             char *, char *, char *, integer *, doublecomplex *, integer *, 
00071             doublereal *, doublecomplex *, doublereal *, integer *), ztbtrs_(char *, char *, char *, integer *, 
00072             integer *, integer *, doublecomplex *, integer *, doublecomplex *, 
00073              integer *, integer *), ztprfs_(char *, 
00074             char *, char *, integer *, integer *, doublecomplex *, 
00075             doublecomplex *, integer *, doublecomplex *, integer *, 
00076             doublereal *, doublereal *, doublecomplex *, doublereal *, 
00077             integer *), ztrrfs_(char *, char *, char *
00078 , integer *, integer *, doublecomplex *, integer *, doublecomplex 
00079             *, integer *, doublecomplex *, integer *, doublereal *, 
00080             doublereal *, doublecomplex *, doublereal *, integer *), ztptri_(char *, char *, integer *, doublecomplex 
00081             *, integer *), ztrtri_(char *, char *, integer *, 
00082             doublecomplex *, integer *, integer *), ztptrs_(
00083             char *, char *, char *, integer *, integer *, doublecomplex *, 
00084             doublecomplex *, integer *, integer *), 
00085             ztrtrs_(char *, char *, char *, integer *, integer *, 
00086             doublecomplex *, integer *, doublecomplex *, integer *, integer *);
00087 
00088     /* Fortran I/O blocks */
00089     static cilist io___1 = { 0, 0, 0, 0, 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 /*  ZERRTR tests the error exits for the COMPLEX*16 triangular routines. */
00104 
00105 /*  Arguments */
00106 /*  ========= */
00107 
00108 /*  PATH    (input) CHARACTER*3 */
00109 /*          The LAPACK path name for the routines to be tested. */
00110 
00111 /*  NUNIT   (input) INTEGER */
00112 /*          The unit number for output. */
00113 
00114 /*  ===================================================================== */
00115 
00116 /*     .. Parameters .. */
00117 /*     .. */
00118 /*     .. Local Scalars .. */
00119 /*     .. */
00120 /*     .. Local Arrays .. */
00121 /*     .. */
00122 /*     .. External Functions .. */
00123 /*     .. */
00124 /*     .. External Subroutines .. */
00125 /*     .. */
00126 /*     .. Scalars in Common .. */
00127 /*     .. */
00128 /*     .. Common blocks .. */
00129 /*     .. */
00130 /*     .. Executable Statements .. */
00131 
00132     infoc_1.nout = *nunit;
00133     io___1.ciunit = infoc_1.nout;
00134     s_wsle(&io___1);
00135     e_wsle();
00136     s_copy(c2, path + 1, (ftnlen)2, (ftnlen)2);
00137     a[0].r = 1., a[0].i = 0.;
00138     a[2].r = 2., a[2].i = 0.;
00139     a[3].r = 3., a[3].i = 0.;
00140     a[1].r = 4., a[1].i = 0.;
00141     infoc_1.ok = TRUE_;
00142 
00143 /*     Test error exits for the general triangular routines. */
00144 
00145     if (lsamen_(&c__2, c2, "TR")) {
00146 
00147 /*        ZTRTRI */
00148 
00149         s_copy(srnamc_1.srnamt, "ZTRTRI", (ftnlen)32, (ftnlen)6);
00150         infoc_1.infot = 1;
00151         ztrtri_("/", "N", &c__0, a, &c__1, &info);
00152         chkxer_("ZTRTRI", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00153                 infoc_1.ok);
00154         infoc_1.infot = 2;
00155         ztrtri_("U", "/", &c__0, a, &c__1, &info);
00156         chkxer_("ZTRTRI", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00157                 infoc_1.ok);
00158         infoc_1.infot = 3;
00159         ztrtri_("U", "N", &c_n1, a, &c__1, &info);
00160         chkxer_("ZTRTRI", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00161                 infoc_1.ok);
00162         infoc_1.infot = 5;
00163         ztrtri_("U", "N", &c__2, a, &c__1, &info);
00164         chkxer_("ZTRTRI", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00165                 infoc_1.ok);
00166 
00167 /*        ZTRTI2 */
00168 
00169         s_copy(srnamc_1.srnamt, "ZTRTI2", (ftnlen)32, (ftnlen)6);
00170         infoc_1.infot = 1;
00171         ztrti2_("/", "N", &c__0, a, &c__1, &info);
00172         chkxer_("ZTRTI2", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00173                 infoc_1.ok);
00174         infoc_1.infot = 2;
00175         ztrti2_("U", "/", &c__0, a, &c__1, &info);
00176         chkxer_("ZTRTI2", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00177                 infoc_1.ok);
00178         infoc_1.infot = 3;
00179         ztrti2_("U", "N", &c_n1, a, &c__1, &info);
00180         chkxer_("ZTRTI2", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00181                 infoc_1.ok);
00182         infoc_1.infot = 5;
00183         ztrti2_("U", "N", &c__2, a, &c__1, &info);
00184         chkxer_("ZTRTI2", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00185                 infoc_1.ok);
00186 
00187 
00188 /*        ZTRTRS */
00189 
00190         s_copy(srnamc_1.srnamt, "ZTRTRS", (ftnlen)32, (ftnlen)6);
00191         infoc_1.infot = 1;
00192         ztrtrs_("/", "N", "N", &c__0, &c__0, a, &c__1, x, &c__1, &info);
00193         chkxer_("ZTRTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00194                 infoc_1.ok);
00195         infoc_1.infot = 2;
00196         ztrtrs_("U", "/", "N", &c__0, &c__0, a, &c__1, x, &c__1, &info);
00197         chkxer_("ZTRTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00198                 infoc_1.ok);
00199         infoc_1.infot = 3;
00200         ztrtrs_("U", "N", "/", &c__0, &c__0, a, &c__1, x, &c__1, &info);
00201         chkxer_("ZTRTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00202                 infoc_1.ok);
00203         infoc_1.infot = 4;
00204         ztrtrs_("U", "N", "N", &c_n1, &c__0, a, &c__1, x, &c__1, &info);
00205         chkxer_("ZTRTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00206                 infoc_1.ok);
00207         infoc_1.infot = 5;
00208         ztrtrs_("U", "N", "N", &c__0, &c_n1, a, &c__1, x, &c__1, &info);
00209         chkxer_("ZTRTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00210                 infoc_1.ok);
00211         infoc_1.infot = 7;
00212 
00213 /*        ZTRRFS */
00214 
00215         s_copy(srnamc_1.srnamt, "ZTRRFS", (ftnlen)32, (ftnlen)6);
00216         infoc_1.infot = 1;
00217         ztrrfs_("/", "N", "N", &c__0, &c__0, a, &c__1, b, &c__1, x, &c__1, r1, 
00218                  r2, w, rw, &info);
00219         chkxer_("ZTRRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00220                 infoc_1.ok);
00221         infoc_1.infot = 2;
00222         ztrrfs_("U", "/", "N", &c__0, &c__0, a, &c__1, b, &c__1, x, &c__1, r1, 
00223                  r2, w, rw, &info);
00224         chkxer_("ZTRRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00225                 infoc_1.ok);
00226         infoc_1.infot = 3;
00227         ztrrfs_("U", "N", "/", &c__0, &c__0, a, &c__1, b, &c__1, x, &c__1, r1, 
00228                  r2, w, rw, &info);
00229         chkxer_("ZTRRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00230                 infoc_1.ok);
00231         infoc_1.infot = 4;
00232         ztrrfs_("U", "N", "N", &c_n1, &c__0, a, &c__1, b, &c__1, x, &c__1, r1, 
00233                  r2, w, rw, &info);
00234         chkxer_("ZTRRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00235                 infoc_1.ok);
00236         infoc_1.infot = 5;
00237         ztrrfs_("U", "N", "N", &c__0, &c_n1, a, &c__1, b, &c__1, x, &c__1, r1, 
00238                  r2, w, rw, &info);
00239         chkxer_("ZTRRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00240                 infoc_1.ok);
00241         infoc_1.infot = 7;
00242         ztrrfs_("U", "N", "N", &c__2, &c__1, a, &c__1, b, &c__2, x, &c__2, r1, 
00243                  r2, w, rw, &info);
00244         chkxer_("ZTRRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00245                 infoc_1.ok);
00246         infoc_1.infot = 9;
00247         ztrrfs_("U", "N", "N", &c__2, &c__1, a, &c__2, b, &c__1, x, &c__2, r1, 
00248                  r2, w, rw, &info);
00249         chkxer_("ZTRRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00250                 infoc_1.ok);
00251         infoc_1.infot = 11;
00252         ztrrfs_("U", "N", "N", &c__2, &c__1, a, &c__2, b, &c__2, x, &c__1, r1, 
00253                  r2, w, rw, &info);
00254         chkxer_("ZTRRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00255                 infoc_1.ok);
00256 
00257 /*        ZTRCON */
00258 
00259         s_copy(srnamc_1.srnamt, "ZTRCON", (ftnlen)32, (ftnlen)6);
00260         infoc_1.infot = 1;
00261         ztrcon_("/", "U", "N", &c__0, a, &c__1, &rcond, w, rw, &info);
00262         chkxer_("ZTRCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00263                 infoc_1.ok);
00264         infoc_1.infot = 2;
00265         ztrcon_("1", "/", "N", &c__0, a, &c__1, &rcond, w, rw, &info);
00266         chkxer_("ZTRCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00267                 infoc_1.ok);
00268         infoc_1.infot = 3;
00269         ztrcon_("1", "U", "/", &c__0, a, &c__1, &rcond, w, rw, &info);
00270         chkxer_("ZTRCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00271                 infoc_1.ok);
00272         infoc_1.infot = 4;
00273         ztrcon_("1", "U", "N", &c_n1, a, &c__1, &rcond, w, rw, &info);
00274         chkxer_("ZTRCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00275                 infoc_1.ok);
00276         infoc_1.infot = 6;
00277         ztrcon_("1", "U", "N", &c__2, a, &c__1, &rcond, w, rw, &info);
00278         chkxer_("ZTRCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00279                 infoc_1.ok);
00280 
00281 /*        ZLATRS */
00282 
00283         s_copy(srnamc_1.srnamt, "ZLATRS", (ftnlen)32, (ftnlen)6);
00284         infoc_1.infot = 1;
00285         zlatrs_("/", "N", "N", "N", &c__0, a, &c__1, x, &scale, rw, &info);
00286         chkxer_("ZLATRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00287                 infoc_1.ok);
00288         infoc_1.infot = 2;
00289         zlatrs_("U", "/", "N", "N", &c__0, a, &c__1, x, &scale, rw, &info);
00290         chkxer_("ZLATRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00291                 infoc_1.ok);
00292         infoc_1.infot = 3;
00293         zlatrs_("U", "N", "/", "N", &c__0, a, &c__1, x, &scale, rw, &info);
00294         chkxer_("ZLATRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00295                 infoc_1.ok);
00296         infoc_1.infot = 4;
00297         zlatrs_("U", "N", "N", "/", &c__0, a, &c__1, x, &scale, rw, &info);
00298         chkxer_("ZLATRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00299                 infoc_1.ok);
00300         infoc_1.infot = 5;
00301         zlatrs_("U", "N", "N", "N", &c_n1, a, &c__1, x, &scale, rw, &info);
00302         chkxer_("ZLATRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00303                 infoc_1.ok);
00304         infoc_1.infot = 7;
00305         zlatrs_("U", "N", "N", "N", &c__2, a, &c__1, x, &scale, rw, &info);
00306         chkxer_("ZLATRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00307                 infoc_1.ok);
00308 
00309 /*     Test error exits for the packed triangular routines. */
00310 
00311     } else if (lsamen_(&c__2, c2, "TP")) {
00312 
00313 /*        ZTPTRI */
00314 
00315         s_copy(srnamc_1.srnamt, "ZTPTRI", (ftnlen)32, (ftnlen)6);
00316         infoc_1.infot = 1;
00317         ztptri_("/", "N", &c__0, a, &info);
00318         chkxer_("ZTPTRI", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00319                 infoc_1.ok);
00320         infoc_1.infot = 2;
00321         ztptri_("U", "/", &c__0, a, &info);
00322         chkxer_("ZTPTRI", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00323                 infoc_1.ok);
00324         infoc_1.infot = 3;
00325         ztptri_("U", "N", &c_n1, a, &info);
00326         chkxer_("ZTPTRI", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00327                 infoc_1.ok);
00328 
00329 /*        ZTPTRS */
00330 
00331         s_copy(srnamc_1.srnamt, "ZTPTRS", (ftnlen)32, (ftnlen)6);
00332         infoc_1.infot = 1;
00333         ztptrs_("/", "N", "N", &c__0, &c__0, a, x, &c__1, &info);
00334         chkxer_("ZTPTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00335                 infoc_1.ok);
00336         infoc_1.infot = 2;
00337         ztptrs_("U", "/", "N", &c__0, &c__0, a, x, &c__1, &info);
00338         chkxer_("ZTPTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00339                 infoc_1.ok);
00340         infoc_1.infot = 3;
00341         ztptrs_("U", "N", "/", &c__0, &c__0, a, x, &c__1, &info);
00342         chkxer_("ZTPTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00343                 infoc_1.ok);
00344         infoc_1.infot = 4;
00345         ztptrs_("U", "N", "N", &c_n1, &c__0, a, x, &c__1, &info);
00346         chkxer_("ZTPTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00347                 infoc_1.ok);
00348         infoc_1.infot = 5;
00349         ztptrs_("U", "N", "N", &c__0, &c_n1, a, x, &c__1, &info);
00350         chkxer_("ZTPTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00351                 infoc_1.ok);
00352         infoc_1.infot = 8;
00353         ztptrs_("U", "N", "N", &c__2, &c__1, a, x, &c__1, &info);
00354         chkxer_("ZTPTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00355                 infoc_1.ok);
00356 
00357 /*        ZTPRFS */
00358 
00359         s_copy(srnamc_1.srnamt, "ZTPRFS", (ftnlen)32, (ftnlen)6);
00360         infoc_1.infot = 1;
00361         ztprfs_("/", "N", "N", &c__0, &c__0, a, b, &c__1, x, &c__1, r1, r2, w, 
00362                  rw, &info);
00363         chkxer_("ZTPRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00364                 infoc_1.ok);
00365         infoc_1.infot = 2;
00366         ztprfs_("U", "/", "N", &c__0, &c__0, a, b, &c__1, x, &c__1, r1, r2, w, 
00367                  rw, &info);
00368         chkxer_("ZTPRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00369                 infoc_1.ok);
00370         infoc_1.infot = 3;
00371         ztprfs_("U", "N", "/", &c__0, &c__0, a, b, &c__1, x, &c__1, r1, r2, w, 
00372                  rw, &info);
00373         chkxer_("ZTPRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00374                 infoc_1.ok);
00375         infoc_1.infot = 4;
00376         ztprfs_("U", "N", "N", &c_n1, &c__0, a, b, &c__1, x, &c__1, r1, r2, w, 
00377                  rw, &info);
00378         chkxer_("ZTPRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00379                 infoc_1.ok);
00380         infoc_1.infot = 5;
00381         ztprfs_("U", "N", "N", &c__0, &c_n1, a, b, &c__1, x, &c__1, r1, r2, w, 
00382                  rw, &info);
00383         chkxer_("ZTPRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00384                 infoc_1.ok);
00385         infoc_1.infot = 8;
00386         ztprfs_("U", "N", "N", &c__2, &c__1, a, b, &c__1, x, &c__2, r1, r2, w, 
00387                  rw, &info);
00388         chkxer_("ZTPRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00389                 infoc_1.ok);
00390         infoc_1.infot = 10;
00391         ztprfs_("U", "N", "N", &c__2, &c__1, a, b, &c__2, x, &c__1, r1, r2, w, 
00392                  rw, &info);
00393         chkxer_("ZTPRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00394                 infoc_1.ok);
00395 
00396 /*        ZTPCON */
00397 
00398         s_copy(srnamc_1.srnamt, "ZTPCON", (ftnlen)32, (ftnlen)6);
00399         infoc_1.infot = 1;
00400         ztpcon_("/", "U", "N", &c__0, a, &rcond, w, rw, &info);
00401         chkxer_("ZTPCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00402                 infoc_1.ok);
00403         infoc_1.infot = 2;
00404         ztpcon_("1", "/", "N", &c__0, a, &rcond, w, rw, &info);
00405         chkxer_("ZTPCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00406                 infoc_1.ok);
00407         infoc_1.infot = 3;
00408         ztpcon_("1", "U", "/", &c__0, a, &rcond, w, rw, &info);
00409         chkxer_("ZTPCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00410                 infoc_1.ok);
00411         infoc_1.infot = 4;
00412         ztpcon_("1", "U", "N", &c_n1, a, &rcond, w, rw, &info);
00413         chkxer_("ZTPCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00414                 infoc_1.ok);
00415 
00416 /*        ZLATPS */
00417 
00418         s_copy(srnamc_1.srnamt, "ZLATPS", (ftnlen)32, (ftnlen)6);
00419         infoc_1.infot = 1;
00420         zlatps_("/", "N", "N", "N", &c__0, a, x, &scale, rw, &info);
00421         chkxer_("ZLATPS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00422                 infoc_1.ok);
00423         infoc_1.infot = 2;
00424         zlatps_("U", "/", "N", "N", &c__0, a, x, &scale, rw, &info);
00425         chkxer_("ZLATPS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00426                 infoc_1.ok);
00427         infoc_1.infot = 3;
00428         zlatps_("U", "N", "/", "N", &c__0, a, x, &scale, rw, &info);
00429         chkxer_("ZLATPS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00430                 infoc_1.ok);
00431         infoc_1.infot = 4;
00432         zlatps_("U", "N", "N", "/", &c__0, a, x, &scale, rw, &info);
00433         chkxer_("ZLATPS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00434                 infoc_1.ok);
00435         infoc_1.infot = 5;
00436         zlatps_("U", "N", "N", "N", &c_n1, a, x, &scale, rw, &info);
00437         chkxer_("ZLATPS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00438                 infoc_1.ok);
00439 
00440 /*     Test error exits for the banded triangular routines. */
00441 
00442     } else if (lsamen_(&c__2, c2, "TB")) {
00443 
00444 /*        ZTBTRS */
00445 
00446         s_copy(srnamc_1.srnamt, "ZTBTRS", (ftnlen)32, (ftnlen)6);
00447         infoc_1.infot = 1;
00448         ztbtrs_("/", "N", "N", &c__0, &c__0, &c__0, a, &c__1, x, &c__1, &info);
00449         chkxer_("ZTBTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00450                 infoc_1.ok);
00451         infoc_1.infot = 2;
00452         ztbtrs_("U", "/", "N", &c__0, &c__0, &c__0, a, &c__1, x, &c__1, &info);
00453         chkxer_("ZTBTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00454                 infoc_1.ok);
00455         infoc_1.infot = 3;
00456         ztbtrs_("U", "N", "/", &c__0, &c__0, &c__0, a, &c__1, x, &c__1, &info);
00457         chkxer_("ZTBTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00458                 infoc_1.ok);
00459         infoc_1.infot = 4;
00460         ztbtrs_("U", "N", "N", &c_n1, &c__0, &c__0, a, &c__1, x, &c__1, &info);
00461         chkxer_("ZTBTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00462                 infoc_1.ok);
00463         infoc_1.infot = 5;
00464         ztbtrs_("U", "N", "N", &c__0, &c_n1, &c__0, a, &c__1, x, &c__1, &info);
00465         chkxer_("ZTBTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00466                 infoc_1.ok);
00467         infoc_1.infot = 6;
00468         ztbtrs_("U", "N", "N", &c__0, &c__0, &c_n1, a, &c__1, x, &c__1, &info);
00469         chkxer_("ZTBTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00470                 infoc_1.ok);
00471         infoc_1.infot = 8;
00472         ztbtrs_("U", "N", "N", &c__2, &c__1, &c__1, a, &c__1, x, &c__2, &info);
00473         chkxer_("ZTBTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00474                 infoc_1.ok);
00475         infoc_1.infot = 10;
00476         ztbtrs_("U", "N", "N", &c__2, &c__0, &c__1, a, &c__1, x, &c__1, &info);
00477         chkxer_("ZTBTRS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00478                 infoc_1.ok);
00479 
00480 /*        ZTBRFS */
00481 
00482         s_copy(srnamc_1.srnamt, "ZTBRFS", (ftnlen)32, (ftnlen)6);
00483         infoc_1.infot = 1;
00484         ztbrfs_("/", "N", "N", &c__0, &c__0, &c__0, a, &c__1, b, &c__1, x, &
00485                 c__1, r1, r2, w, rw, &info);
00486         chkxer_("ZTBRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00487                 infoc_1.ok);
00488         infoc_1.infot = 2;
00489         ztbrfs_("U", "/", "N", &c__0, &c__0, &c__0, a, &c__1, b, &c__1, x, &
00490                 c__1, r1, r2, w, rw, &info);
00491         chkxer_("ZTBRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00492                 infoc_1.ok);
00493         infoc_1.infot = 3;
00494         ztbrfs_("U", "N", "/", &c__0, &c__0, &c__0, a, &c__1, b, &c__1, x, &
00495                 c__1, r1, r2, w, rw, &info);
00496         chkxer_("ZTBRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00497                 infoc_1.ok);
00498         infoc_1.infot = 4;
00499         ztbrfs_("U", "N", "N", &c_n1, &c__0, &c__0, a, &c__1, b, &c__1, x, &
00500                 c__1, r1, r2, w, rw, &info);
00501         chkxer_("ZTBRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00502                 infoc_1.ok);
00503         infoc_1.infot = 5;
00504         ztbrfs_("U", "N", "N", &c__0, &c_n1, &c__0, a, &c__1, b, &c__1, x, &
00505                 c__1, r1, r2, w, rw, &info);
00506         chkxer_("ZTBRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00507                 infoc_1.ok);
00508         infoc_1.infot = 6;
00509         ztbrfs_("U", "N", "N", &c__0, &c__0, &c_n1, a, &c__1, b, &c__1, x, &
00510                 c__1, r1, r2, w, rw, &info);
00511         chkxer_("ZTBRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00512                 infoc_1.ok);
00513         infoc_1.infot = 8;
00514         ztbrfs_("U", "N", "N", &c__2, &c__1, &c__1, a, &c__1, b, &c__2, x, &
00515                 c__2, r1, r2, w, rw, &info);
00516         chkxer_("ZTBRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00517                 infoc_1.ok);
00518         infoc_1.infot = 10;
00519         ztbrfs_("U", "N", "N", &c__2, &c__1, &c__1, a, &c__2, b, &c__1, x, &
00520                 c__2, r1, r2, w, rw, &info);
00521         chkxer_("ZTBRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00522                 infoc_1.ok);
00523         infoc_1.infot = 12;
00524         ztbrfs_("U", "N", "N", &c__2, &c__1, &c__1, a, &c__2, b, &c__2, x, &
00525                 c__1, r1, r2, w, rw, &info);
00526         chkxer_("ZTBRFS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00527                 infoc_1.ok);
00528 
00529 /*        ZTBCON */
00530 
00531         s_copy(srnamc_1.srnamt, "ZTBCON", (ftnlen)32, (ftnlen)6);
00532         infoc_1.infot = 1;
00533         ztbcon_("/", "U", "N", &c__0, &c__0, a, &c__1, &rcond, w, rw, &info);
00534         chkxer_("ZTBCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00535                 infoc_1.ok);
00536         infoc_1.infot = 2;
00537         ztbcon_("1", "/", "N", &c__0, &c__0, a, &c__1, &rcond, w, rw, &info);
00538         chkxer_("ZTBCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00539                 infoc_1.ok);
00540         infoc_1.infot = 3;
00541         ztbcon_("1", "U", "/", &c__0, &c__0, a, &c__1, &rcond, w, rw, &info);
00542         chkxer_("ZTBCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00543                 infoc_1.ok);
00544         infoc_1.infot = 4;
00545         ztbcon_("1", "U", "N", &c_n1, &c__0, a, &c__1, &rcond, w, rw, &info);
00546         chkxer_("ZTBCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00547                 infoc_1.ok);
00548         infoc_1.infot = 5;
00549         ztbcon_("1", "U", "N", &c__0, &c_n1, a, &c__1, &rcond, w, rw, &info);
00550         chkxer_("ZTBCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00551                 infoc_1.ok);
00552         infoc_1.infot = 7;
00553         ztbcon_("1", "U", "N", &c__2, &c__1, a, &c__1, &rcond, w, rw, &info);
00554         chkxer_("ZTBCON", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00555                 infoc_1.ok);
00556 
00557 /*        ZLATBS */
00558 
00559         s_copy(srnamc_1.srnamt, "ZLATBS", (ftnlen)32, (ftnlen)6);
00560         infoc_1.infot = 1;
00561         zlatbs_("/", "N", "N", "N", &c__0, &c__0, a, &c__1, x, &scale, rw, &
00562                 info);
00563         chkxer_("ZLATBS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00564                 infoc_1.ok);
00565         infoc_1.infot = 2;
00566         zlatbs_("U", "/", "N", "N", &c__0, &c__0, a, &c__1, x, &scale, rw, &
00567                 info);
00568         chkxer_("ZLATBS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00569                 infoc_1.ok);
00570         infoc_1.infot = 3;
00571         zlatbs_("U", "N", "/", "N", &c__0, &c__0, a, &c__1, x, &scale, rw, &
00572                 info);
00573         chkxer_("ZLATBS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00574                 infoc_1.ok);
00575         infoc_1.infot = 4;
00576         zlatbs_("U", "N", "N", "/", &c__0, &c__0, a, &c__1, x, &scale, rw, &
00577                 info);
00578         chkxer_("ZLATBS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00579                 infoc_1.ok);
00580         infoc_1.infot = 5;
00581         zlatbs_("U", "N", "N", "N", &c_n1, &c__0, a, &c__1, x, &scale, rw, &
00582                 info);
00583         chkxer_("ZLATBS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00584                 infoc_1.ok);
00585         infoc_1.infot = 6;
00586         zlatbs_("U", "N", "N", "N", &c__1, &c_n1, a, &c__1, x, &scale, rw, &
00587                 info);
00588         chkxer_("ZLATBS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00589                 infoc_1.ok);
00590         infoc_1.infot = 8;
00591         zlatbs_("U", "N", "N", "N", &c__2, &c__1, a, &c__1, x, &scale, rw, &
00592                 info);
00593         chkxer_("ZLATBS", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
00594                 infoc_1.ok);
00595     }
00596 
00597 /*     Print a summary line. */
00598 
00599     alaesm_(path, &infoc_1.ok, &infoc_1.nout);
00600 
00601     return 0;
00602 
00603 /*     End of ZERRTR */
00604 
00605 } /* zerrtr_ */

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