00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013 #include "f2c.h"
00014 #include "blaswrap.h"
00015
00016
00017
00018 struct {
00019 integer infot, nout;
00020 logical ok, lerr;
00021 } infoc_;
00022
00023 #define infoc_1 infoc_
00024
00025 struct {
00026 char srnamt[32];
00027 } srnamc_;
00028
00029 #define srnamc_1 srnamc_
00030
00031
00032
00033 static integer c__2 = 2;
00034 static integer c__0 = 0;
00035 static integer c__1 = 1;
00036 static integer c_n1 = -1;
00037 static integer c__3 = 3;
00038 static integer c__4 = 4;
00039
00040 int serrhs_(char *path, integer *nunit)
00041 {
00042
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
00049 integer s_wsle(cilist *), e_wsle(void);
00050 int s_copy(char *, char *, ftnlen, ftnlen);
00051 integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe(void);
00052
00053
00054 real a[9] , c__[9] ;
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] , vr[9] , wr[3];
00061 integer ihi, ilo;
00062 logical sel[3];
00063 real tau[3];
00064 integer info;
00065 extern 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 int sgehrd_(integer *, integer *, integer *, real
00070 *, integer *, real *, real *, integer *, integer *);
00071 extern logical lsamen_(integer *, char *, char *);
00072 extern 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
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
00094
00095
00096
00097
00098
00099
00100
00101
00102
00103
00104
00105
00106
00107
00108
00109
00110
00111
00112
00113
00114
00115
00116
00117
00118
00119
00120
00121
00122
00123
00124
00125
00126
00127
00128
00129
00130
00131
00132
00133
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
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
00147 }
00148 wi[j - 1] = (real) j;
00149 sel[j - 1] = TRUE_;
00150
00151 }
00152 infoc_1.ok = TRUE_;
00153 nt = 0;
00154
00155
00156
00157 if (lsamen_(&c__2, c2, "HS")) {
00158
00159
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
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
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
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
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
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
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
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
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
00523
00524 }