/nvxs/CLAPACK/TESTING/EIG/derrgg.c

https://github.com/nagadomi/animeface-2009 · C · 1307 lines · 1160 code · 79 blank · 68 comment · 19 complexity · e1599ac521d9b2895ae522fc699deebc MD5 · raw file

Large files are truncated click here to view the full file

    

  1. #include "f2c.h"
    2. 

  2. #include "blaswrap.h"
    3. 

  3. 

  4. /* Common Block Declarations */
    5. 

  5. 

  6. struct {
    7. 

  7.     integer infot, nout;
    8. 

  8.     logical ok, lerr;
    9. 

  9. } infoc_;
    10. 

  10. 

  11. #define infoc_1 infoc_
    12. 

  12. 

  13. struct {
    14. 

  14.     char srnamt[6];
    15. 

  15. } srnamc_;
    16. 

  16. 

  17. #define srnamc_1 srnamc_
    18. 

  18. 

  19. /* Table of constant values */
    20. 

  20. 

  21. static integer c__2 = 2;
    22. 

  22. static integer c__0 = 0;
    23. 

  23. static integer c__1 = 1;
    24. 

  24. static integer c_n1 = -1;
    25. 

  25. static integer c__18 = 18;
    26. 

  26. static integer c__3 = 3;
    27. 

  27. static integer c__32 = 32;
    28. 

  28. static logical c_true = TRUE_;
    29. 

  29. static logical c_false = FALSE_;
    30. 

  30. static integer c__20 = 20;
    31. 

  31. 

  32. /* Subroutine */ int derrgg_(char *path, integer *nunit)
    33. 

  33. {
    34. 

  34.     /* Format strings */
    35. 

  35.     static char fmt_9999[] = "(1x,a3,\002 routines passed the tests of the e"
    36. 

  36. 	    "rror exits (\002,i3,\002 tests done)\002)";
    37. 

  37.     static char fmt_9998[] = "(\002 *** \002,a3,\002 routines failed the tes"
    38. 

  38. 	    "ts of the error \002,\002exits ***\002)";
    39. 

  39. 

  40.     /* Builtin functions */
    41. 

  41.     integer s_wsle(cilist *), e_wsle(void);
    42. 

  42.     /* Subroutine */ int s_copy(char *, char *, ftnlen, ftnlen);
    43. 

  43.     integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe(void);
    44. 

  44. 

  45.     /* Local variables */
    46. 

  46.     doublereal a[9]	/* was [3][3] */, b[9]	/* was [3][3] */;
    47. 

  47.     integer i__, j, m;
    48. 

  48.     doublereal q[9]	/* was [3][3] */, u[9]	/* was [3][3] */, v[9]	/* 
    49. 

  49. 	    was [3][3] */, w[18], z__[9]	/* was [3][3] */;
    50. 

  50.     char c2[2];
    51. 

  51.     doublereal r1[3], r2[3], r3[3];
    52. 

  52.     logical bw[3];
    53. 

  53.     doublereal ls[3];
    54. 

  54.     integer iw[3], nt;
    55. 

  55.     doublereal rs[3], dif, rce[2];
    56. 

  56.     logical sel[3];
    57. 

  57.     doublereal tau[3], rcv[2];
    58. 

  58.     integer info, sdim;
    59. 

  59.     doublereal anrm, bnrm, tola, tolb;
    60. 

  60.     integer ifst, ilst;
    61. 

  61.     doublereal scale;
    62. 

  62.     extern /* Subroutine */ int dgges_(char *, char *, char *, L_fp, integer *
    63. 

  63. , doublereal *, integer *, doublereal *, integer *, integer *, 
    64. 

  64. 	    doublereal *, doublereal *, doublereal *, doublereal *, integer *, 
    65. 

  65. 	     doublereal *, integer *, doublereal *, integer *, logical *, 
    66. 

  66. 	    integer *), dggev_(char *, char *, 
    67. 

  67. 	    integer *, doublereal *, integer *, doublereal *, integer *, 
    68. 

  68. 	    doublereal *, doublereal *, doublereal *, doublereal *, integer *, 
    69. 

  69. 	     doublereal *, integer *, doublereal *, integer *, integer *), dgghrd_(char *, char *, integer *, integer *, 
    70. 

  70. 	    integer *, doublereal *, integer *, doublereal *, integer *, 
    71. 

  71. 	    doublereal *, integer *, doublereal *, integer *, integer *), dggglm_(integer *, integer *, integer *, 
    72. 

  72. 	    doublereal *, integer *, doublereal *, integer *, doublereal *, 
    73. 

  73. 	    doublereal *, doublereal *, doublereal *, integer *, integer *), 
    74. 

  74. 	    dgglse_(integer *, integer *, integer *, doublereal *, integer *, 
    75. 

  75. 	    doublereal *, integer *, doublereal *, doublereal *, doublereal *, 
    76. 

  76. 	     doublereal *, integer *, integer *), dggqrf_(integer *, integer *
    77. 

  77. , integer *, doublereal *, integer *, doublereal *, doublereal *, 
    78. 

  78. 	    integer *, doublereal *, doublereal *, integer *, integer *), 
    79. 

  79. 	    dggrqf_(integer *, integer *, integer *, doublereal *, integer *, 
    80. 

  80. 	    doublereal *, doublereal *, integer *, doublereal *, doublereal *, 
    81. 

  81. 	     integer *, integer *);
    82. 

  82.     integer ncycle;
    83. 

  83.     extern logical dlctes_(), lsamen_(integer *, char *, char *);
    84. 

  84.     extern /* Subroutine */ int dggsvd_(char *, char *, char *, integer *, 
    85. 

  85. 	    integer *, integer *, integer *, integer *, doublereal *, integer 
    86. 

  86. 	    *, doublereal *, integer *, doublereal *, doublereal *, 
    87. 

  87. 	    doublereal *, integer *, doublereal *, integer *, doublereal *, 
    88. 

  88. 	    integer *, doublereal *, integer *, integer *), dggesx_(char *, char *, char *, L_fp, char *, integer *, 
    89. 

  89. 	    doublereal *, integer *, doublereal *, integer *, integer *, 
    90. 

  90. 	    doublereal *, doublereal *, doublereal *, doublereal *, integer *, 
    91. 

  91. 	     doublereal *, integer *, doublereal *, doublereal *, doublereal *
    92. 

  92. , integer *, integer *, integer *, logical *, integer *), dhgeqz_(char *, char *, char *, integer *
    93. 

  93. , integer *, integer *, doublereal *, integer *, doublereal *, 
    94. 

  94. 	    integer *, doublereal *, doublereal *, doublereal *, doublereal *, 
    95. 

  95. 	     integer *, doublereal *, integer *, doublereal *, integer *, 
    96. 

  96. 	    integer *), dtgevc_(char *, char *, 
    97. 

  97. 	    logical *, integer *, doublereal *, integer *, doublereal *, 
    98. 

  98. 	    integer *, doublereal *, integer *, doublereal *, integer *, 
    99. 

  99. 	    integer *, integer *, doublereal *, integer *), 
    100. 

  100. 	    chkxer_(char *, integer *, integer *, logical *, logical *), dggevx_(char *, char *, char *, char *, integer *, 
    101. 

  101. 	    doublereal *, integer *, doublereal *, integer *, doublereal *, 
    102. 

  102. 	    doublereal *, doublereal *, doublereal *, integer *, doublereal *, 
    103. 

  103. 	     integer *, integer *, integer *, doublereal *, doublereal *, 
    104. 

  104. 	    doublereal *, doublereal *, doublereal *, doublereal *, 
    105. 

  105. 	    doublereal *, integer *, integer *, logical *, integer *), dtgexc_(logical *, logical *, integer *, 
    106. 

  106. 	    doublereal *, integer *, doublereal *, integer *, doublereal *, 
    107. 

  107. 	    integer *, doublereal *, integer *, integer *, integer *, 
    108. 

  108. 	    doublereal *, integer *, integer *), dtgsen_(integer *, logical *, 
    109. 

  109. 	     logical *, logical *, integer *, doublereal *, integer *, 
    110. 

  110. 	    doublereal *, integer *, doublereal *, doublereal *, doublereal *, 
    111. 

  111. 	     doublereal *, integer *, doublereal *, integer *, integer *, 
    112. 

  112. 	    doublereal *, doublereal *, doublereal *, doublereal *, integer *, 
    113. 

  113. 	     integer *, integer *, integer *), dtgsja_(char *, char *, char *, 
    114. 

  114. 	     integer *, integer *, integer *, integer *, integer *, 
    115. 

  115. 	    doublereal *, integer *, doublereal *, integer *, doublereal *, 
    116. 

  116. 	    doublereal *, doublereal *, doublereal *, doublereal *, integer *, 
    117. 

  117. 	     doublereal *, integer *, doublereal *, integer *, doublereal *, 
    118. 

  118. 	    integer *, integer *), dtgsna_(char *, 
    119. 

  119. 	    char *, logical *, integer *, doublereal *, integer *, doublereal 
    120. 

  120. 	    *, integer *, doublereal *, integer *, doublereal *, integer *, 
    121. 

  121. 	    doublereal *, doublereal *, integer *, integer *, doublereal *, 
    122. 

  122. 	    integer *, integer *, integer *), dggsvp_(char *, 
    123. 

  123. 	    char *, char *, integer *, integer *, integer *, doublereal *, 
    124. 

  124. 	    integer *, doublereal *, integer *, doublereal *, doublereal *, 
    125. 

  125. 	    integer *, integer *, doublereal *, integer *, doublereal *, 
    126. 

  126. 	    integer *, doublereal *, integer *, integer *, doublereal *, 
    127. 

  127. 	    doublereal *, integer *);
    128. 

  128.     extern logical dlctsx_();
    129. 

  129.     integer dummyk, dummyl;
    130. 

  130.     extern /* Subroutine */ int dtgsyl_(char *, integer *, integer *, integer 
    131. 

  131. 	    *, doublereal *, integer *, doublereal *, integer *, doublereal *, 
    132. 

  132. 	     integer *, doublereal *, integer *, doublereal *, integer *, 
    133. 

  133. 	    doublereal *, integer *, doublereal *, doublereal *, doublereal *, 
    134. 

  134. 	     integer *, integer *, integer *);
    135. 

  135. 

  136.     /* Fortran I/O blocks */
    137. 

  137.     static cilist io___1 = { 0, 0, 0, 0, 0 };
    138. 

  138.     static cilist io___38 = { 0, 0, 0, fmt_9999, 0 };
    139. 

  139.     static cilist io___39 = { 0, 0, 0, fmt_9998, 0 };
    140. 

  140. 

  141. 

  142. 

  143. /*  -- LAPACK test routine (version 3.1) -- */
    144. 

  144. /*     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. */
    145. 

  145. /*     November 2006 */
    146. 

  146. 

  147. /*     .. Scalar Arguments .. */
    148. 

  148. /*     .. */
    149. 

  149. 

  150. /*  Purpose */
    151. 

  151. /*  ======= */
    152. 

  152. 

  153. /*  DERRGG tests the error exits for DGGES, DGGESX, DGGEV, DGGEVX, */
    154. 

  154. /*  DGGGLM, DGGHRD, DGGLSE, DGGQRF, DGGRQF, DGGSVD, DGGSVP, DHGEQZ, */
    155. 

  155. /*  DTGEVC, DTGEXC, DTGSEN, DTGSJA, DTGSNA, and DTGSYL. */
    156. 

  156. 

  157. /*  Arguments */
    158. 

  158. /*  ========= */
    159. 

  159. 

  160. /*  PATH    (input) CHARACTER*3 */
    161. 

  161. /*          The LAPACK path name for the routines to be tested. */
    162. 

  162. 

  163. /*  NUNIT   (input) INTEGER */
    164. 

  164. /*          The unit number for output. */
    165. 

  165. 

  166. /*  ===================================================================== */
    167. 

  167. 

  168. /*     .. Parameters .. */
    169. 

  169. /*     .. */
    170. 

  170. /*     .. Local Scalars .. */
    171. 

  171. /*     .. */
    172. 

  172. /*     .. Local Arrays .. */
    173. 

  173. /*     .. */
    174. 

  174. /*     .. External Functions .. */
    175. 

  175. /*     .. */
    176. 

  176. /*     .. External Subroutines .. */
    177. 

  177. /*     .. */
    178. 

  178. /*     .. Scalars in Common .. */
    179. 

  179. /*     .. */
    180. 

  180. /*     .. Common blocks .. */
    181. 

  181. /*     .. */
    182. 

  182. /*     .. Executable Statements .. */
    183. 

  183. 

  184.     infoc_1.nout = *nunit;
    185. 

  185.     io___1.ciunit = infoc_1.nout;
    186. 

  186.     s_wsle(&io___1);
    187. 

  187.     e_wsle();
    188. 

  188.     s_copy(c2, path + 1, (ftnlen)2, (ftnlen)2);
    189. 

  189. 

  190. /*     Set the variables to innocuous values. */
    191. 

  191. 

  192.     for (j = 1; j <= 3; ++j) {
    193. 

  193. 	sel[j - 1] = TRUE_;
    194. 

  194. 	for (i__ = 1; i__ <= 3; ++i__) {
    195. 

  195. 	    a[i__ + j * 3 - 4] = 0.;
    196. 

  196. 	    b[i__ + j * 3 - 4] = 0.;
    197. 

  197. /* L10: */
    198. 

  198. 	}
    199. 

  199. /* L20: */
    200. 

  200.     }
    201. 

  201.     for (i__ = 1; i__ <= 3; ++i__) {
    202. 

  202. 	a[i__ + i__ * 3 - 4] = 1.;
    203. 

  203. 	b[i__ + i__ * 3 - 4] = 1.;
    204. 

  204. /* L30: */
    205. 

  205.     }
    206. 

  206.     infoc_1.ok = TRUE_;
    207. 

  207.     tola = 1.;
    208. 

  208.     tolb = 1.;
    209. 

  209.     ifst = 1;
    210. 

  210.     ilst = 1;
    211. 

  211.     nt = 0;
    212. 

  212. 

  213. /*     Test error exits for the GG path. */
    214. 

  214. 

  215.     if (lsamen_(&c__2, c2, "GG")) {
    216. 

  216. 

  217. /*        DGGHRD */
    218. 

  218. 

  219. 	s_copy(srnamc_1.srnamt, "DGGHRD", (ftnlen)6, (ftnlen)6);
    220. 

  220. 	infoc_1.infot = 1;
    221. 

  221. 	dgghrd_("/", "N", &c__0, &c__1, &c__0, a, &c__1, b, &c__1, q, &c__1, 
    222. 

  222. 		z__, &c__1, &info);
    223. 

  223. 	chkxer_("DGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    224. 

  224. 		infoc_1.ok);
    225. 

  225. 	infoc_1.infot = 2;
    226. 

  226. 	dgghrd_("N", "/", &c__0, &c__1, &c__0, a, &c__1, b, &c__1, q, &c__1, 
    227. 

  227. 		z__, &c__1, &info);
    228. 

  228. 	chkxer_("DGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    229. 

  229. 		infoc_1.ok);
    230. 

  230. 	infoc_1.infot = 3;
    231. 

  231. 	dgghrd_("N", "N", &c_n1, &c__0, &c__0, a, &c__1, b, &c__1, q, &c__1, 
    232. 

  232. 		z__, &c__1, &info);
    233. 

  233. 	chkxer_("DGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    234. 

  234. 		infoc_1.ok);
    235. 

  235. 	infoc_1.infot = 4;
    236. 

  236. 	dgghrd_("N", "N", &c__0, &c__0, &c__0, a, &c__1, b, &c__1, q, &c__1, 
    237. 

  237. 		z__, &c__1, &info);
    238. 

  238. 	chkxer_("DGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    239. 

  239. 		infoc_1.ok);
    240. 

  240. 	infoc_1.infot = 5;
    241. 

  241. 	dgghrd_("N", "N", &c__0, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__1, 
    242. 

  242. 		z__, &c__1, &info);
    243. 

  243. 	chkxer_("DGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    244. 

  244. 		infoc_1.ok);
    245. 

  245. 	infoc_1.infot = 7;
    246. 

  246. 	dgghrd_("N", "N", &c__2, &c__1, &c__1, a, &c__1, b, &c__2, q, &c__1, 
    247. 

  247. 		z__, &c__1, &info);
    248. 

  248. 	chkxer_("DGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    249. 

  249. 		infoc_1.ok);
    250. 

  250. 	infoc_1.infot = 9;
    251. 

  251. 	dgghrd_("N", "N", &c__2, &c__1, &c__1, a, &c__2, b, &c__1, q, &c__1, 
    252. 

  252. 		z__, &c__1, &info);
    253. 

  253. 	chkxer_("DGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    254. 

  254. 		infoc_1.ok);
    255. 

  255. 	infoc_1.infot = 11;
    256. 

  256. 	dgghrd_("V", "N", &c__2, &c__1, &c__1, a, &c__2, b, &c__2, q, &c__1, 
    257. 

  257. 		z__, &c__1, &info);
    258. 

  258. 	chkxer_("DGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    259. 

  259. 		infoc_1.ok);
    260. 

  260. 	infoc_1.infot = 13;
    261. 

  261. 	dgghrd_("N", "V", &c__2, &c__1, &c__1, a, &c__2, b, &c__2, q, &c__1, 
    262. 

  262. 		z__, &c__1, &info);
    263. 

  263. 	chkxer_("DGGHRD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    264. 

  264. 		infoc_1.ok);
    265. 

  265. 	nt += 9;
    266. 

  266. 

  267. /*        DHGEQZ */
    268. 

  268. 

  269. 	s_copy(srnamc_1.srnamt, "DHGEQZ", (ftnlen)6, (ftnlen)6);
    270. 

  270. 	infoc_1.infot = 1;
    271. 

  271. 	dhgeqz_("/", "N", "N", &c__0, &c__1, &c__0, a, &c__1, b, &c__1, r1, 
    272. 

  272. 		r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
    273. 

  273. 	chkxer_("DHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    274. 

  274. 		infoc_1.ok);
    275. 

  275. 	infoc_1.infot = 2;
    276. 

  276. 	dhgeqz_("E", "/", "N", &c__0, &c__1, &c__0, a, &c__1, b, &c__1, r1, 
    277. 

  277. 		r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
    278. 

  278. 	chkxer_("DHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    279. 

  279. 		infoc_1.ok);
    280. 

  280. 	infoc_1.infot = 3;
    281. 

  281. 	dhgeqz_("E", "N", "/", &c__0, &c__1, &c__0, a, &c__1, b, &c__1, r1, 
    282. 

  282. 		r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
    283. 

  283. 	chkxer_("DHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    284. 

  284. 		infoc_1.ok);
    285. 

  285. 	infoc_1.infot = 4;
    286. 

  286. 	dhgeqz_("E", "N", "N", &c_n1, &c__0, &c__0, a, &c__1, b, &c__1, r1, 
    287. 

  287. 		r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
    288. 

  288. 	chkxer_("DHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    289. 

  289. 		infoc_1.ok);
    290. 

  290. 	infoc_1.infot = 5;
    291. 

  291. 	dhgeqz_("E", "N", "N", &c__0, &c__0, &c__0, a, &c__1, b, &c__1, r1, 
    292. 

  292. 		r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
    293. 

  293. 	chkxer_("DHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    294. 

  294. 		infoc_1.ok);
    295. 

  295. 	infoc_1.infot = 6;
    296. 

  296. 	dhgeqz_("E", "N", "N", &c__0, &c__1, &c__1, a, &c__1, b, &c__1, r1, 
    297. 

  297. 		r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
    298. 

  298. 	chkxer_("DHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    299. 

  299. 		infoc_1.ok);
    300. 

  300. 	infoc_1.infot = 8;
    301. 

  301. 	dhgeqz_("E", "N", "N", &c__2, &c__1, &c__1, a, &c__1, b, &c__2, r1, 
    302. 

  302. 		r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
    303. 

  303. 	chkxer_("DHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    304. 

  304. 		infoc_1.ok);
    305. 

  305. 	infoc_1.infot = 10;
    306. 

  306. 	dhgeqz_("E", "N", "N", &c__2, &c__1, &c__1, a, &c__2, b, &c__1, r1, 
    307. 

  307. 		r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
    308. 

  308. 	chkxer_("DHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    309. 

  309. 		infoc_1.ok);
    310. 

  310. 	infoc_1.infot = 15;
    311. 

  311. 	dhgeqz_("E", "V", "N", &c__2, &c__1, &c__1, a, &c__2, b, &c__2, r1, 
    312. 

  312. 		r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
    313. 

  313. 	chkxer_("DHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    314. 

  314. 		infoc_1.ok);
    315. 

  315. 	infoc_1.infot = 17;
    316. 

  316. 	dhgeqz_("E", "N", "V", &c__2, &c__1, &c__1, a, &c__2, b, &c__2, r1, 
    317. 

  317. 		r2, r3, q, &c__1, z__, &c__1, w, &c__18, &info);
    318. 

  318. 	chkxer_("DHGEQZ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    319. 

  319. 		infoc_1.ok);
    320. 

  320. 	nt += 10;
    321. 

  321. 

  322. /*        DTGEVC */
    323. 

  323. 

  324. 	s_copy(srnamc_1.srnamt, "DTGEVC", (ftnlen)6, (ftnlen)6);
    325. 

  325. 	infoc_1.infot = 1;
    326. 

  326. 	dtgevc_("/", "A", sel, &c__0, a, &c__1, b, &c__1, q, &c__1, z__, &
    327. 

  327. 		c__1, &c__0, &m, w, &info);
    328. 

  328. 	chkxer_("DTGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    329. 

  329. 		infoc_1.ok);
    330. 

  330. 	infoc_1.infot = 2;
    331. 

  331. 	dtgevc_("R", "/", sel, &c__0, a, &c__1, b, &c__1, q, &c__1, z__, &
    332. 

  332. 		c__1, &c__0, &m, w, &info);
    333. 

  333. 	chkxer_("DTGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    334. 

  334. 		infoc_1.ok);
    335. 

  335. 	infoc_1.infot = 4;
    336. 

  336. 	dtgevc_("R", "A", sel, &c_n1, a, &c__1, b, &c__1, q, &c__1, z__, &
    337. 

  337. 		c__1, &c__0, &m, w, &info);
    338. 

  338. 	chkxer_("DTGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    339. 

  339. 		infoc_1.ok);
    340. 

  340. 	infoc_1.infot = 6;
    341. 

  341. 	dtgevc_("R", "A", sel, &c__2, a, &c__1, b, &c__2, q, &c__1, z__, &
    342. 

  342. 		c__2, &c__0, &m, w, &info);
    343. 

  343. 	chkxer_("DTGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    344. 

  344. 		infoc_1.ok);
    345. 

  345. 	infoc_1.infot = 8;
    346. 

  346. 	dtgevc_("R", "A", sel, &c__2, a, &c__2, b, &c__1, q, &c__1, z__, &
    347. 

  347. 		c__2, &c__0, &m, w, &info);
    348. 

  348. 	chkxer_("DTGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    349. 

  349. 		infoc_1.ok);
    350. 

  350. 	infoc_1.infot = 10;
    351. 

  351. 	dtgevc_("L", "A", sel, &c__2, a, &c__2, b, &c__2, q, &c__1, z__, &
    352. 

  352. 		c__1, &c__0, &m, w, &info);
    353. 

  353. 	chkxer_("DTGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    354. 

  354. 		infoc_1.ok);
    355. 

  355. 	infoc_1.infot = 12;
    356. 

  356. 	dtgevc_("R", "A", sel, &c__2, a, &c__2, b, &c__2, q, &c__1, z__, &
    357. 

  357. 		c__1, &c__0, &m, w, &info);
    358. 

  358. 	chkxer_("DTGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    359. 

  359. 		infoc_1.ok);
    360. 

  360. 	infoc_1.infot = 13;
    361. 

  361. 	dtgevc_("R", "A", sel, &c__2, a, &c__2, b, &c__2, q, &c__1, z__, &
    362. 

  362. 		c__2, &c__1, &m, w, &info);
    363. 

  363. 	chkxer_("DTGEVC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    364. 

  364. 		infoc_1.ok);
    365. 

  365. 	nt += 8;
    366. 

  366. 

  367. /*     Test error exits for the GSV path. */
    368. 

  368. 

  369.     } else if (lsamen_(&c__3, path, "GSV")) {
    370. 

  370. 

  371. /*        DGGSVD */
    372. 

  372. 

  373. 	s_copy(srnamc_1.srnamt, "DGGSVD", (ftnlen)6, (ftnlen)6);
    374. 

  374. 	infoc_1.infot = 1;
    375. 

  375. 	dggsvd_("/", "N", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
    376. 

  376. 		c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
    377. 

  377. 		info);
    378. 

  378. 	chkxer_("DGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    379. 

  379. 		infoc_1.ok);
    380. 

  380. 	infoc_1.infot = 2;
    381. 

  381. 	dggsvd_("N", "/", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
    382. 

  382. 		c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
    383. 

  383. 		info);
    384. 

  384. 	chkxer_("DGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    385. 

  385. 		infoc_1.ok);
    386. 

  386. 	infoc_1.infot = 3;
    387. 

  387. 	dggsvd_("N", "N", "/", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
    388. 

  388. 		c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
    389. 

  389. 		info);
    390. 

  390. 	chkxer_("DGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    391. 

  391. 		infoc_1.ok);
    392. 

  392. 	infoc_1.infot = 4;
    393. 

  393. 	dggsvd_("N", "N", "N", &c_n1, &c__0, &c__0, &dummyk, &dummyl, a, &
    394. 

  394. 		c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
    395. 

  395. 		info);
    396. 

  396. 	chkxer_("DGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    397. 

  397. 		infoc_1.ok);
    398. 

  398. 	infoc_1.infot = 5;
    399. 

  399. 	dggsvd_("N", "N", "N", &c__0, &c_n1, &c__0, &dummyk, &dummyl, a, &
    400. 

  400. 		c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
    401. 

  401. 		info);
    402. 

  402. 	chkxer_("DGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    403. 

  403. 		infoc_1.ok);
    404. 

  404. 	infoc_1.infot = 6;
    405. 

  405. 	dggsvd_("N", "N", "N", &c__0, &c__0, &c_n1, &dummyk, &dummyl, a, &
    406. 

  406. 		c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
    407. 

  407. 		info);
    408. 

  408. 	chkxer_("DGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    409. 

  409. 		infoc_1.ok);
    410. 

  410. 	infoc_1.infot = 10;
    411. 

  411. 	dggsvd_("N", "N", "N", &c__2, &c__1, &c__1, &dummyk, &dummyl, a, &
    412. 

  412. 		c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
    413. 

  413. 		info);
    414. 

  414. 	chkxer_("DGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    415. 

  415. 		infoc_1.ok);
    416. 

  416. 	infoc_1.infot = 12;
    417. 

  417. 	dggsvd_("N", "N", "N", &c__1, &c__1, &c__2, &dummyk, &dummyl, a, &
    418. 

  418. 		c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
    419. 

  419. 		info);
    420. 

  420. 	chkxer_("DGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    421. 

  421. 		infoc_1.ok);
    422. 

  422. 	infoc_1.infot = 16;
    423. 

  423. 	dggsvd_("U", "N", "N", &c__2, &c__2, &c__2, &dummyk, &dummyl, a, &
    424. 

  424. 		c__2, b, &c__2, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
    425. 

  425. 		info);
    426. 

  426. 	chkxer_("DGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    427. 

  427. 		infoc_1.ok);
    428. 

  428. 	infoc_1.infot = 18;
    429. 

  429. 	dggsvd_("N", "V", "N", &c__1, &c__1, &c__2, &dummyk, &dummyl, a, &
    430. 

  430. 		c__1, b, &c__2, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
    431. 

  431. 		info);
    432. 

  432. 	chkxer_("DGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    433. 

  433. 		infoc_1.ok);
    434. 

  434. 	infoc_1.infot = 20;
    435. 

  435. 	dggsvd_("N", "N", "Q", &c__1, &c__2, &c__1, &dummyk, &dummyl, a, &
    436. 

  436. 		c__1, b, &c__1, r1, r2, u, &c__1, v, &c__1, q, &c__1, w, iw, &
    437. 

  437. 		info);
    438. 

  438. 	chkxer_("DGGSVD", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    439. 

  439. 		infoc_1.ok);
    440. 

  440. 	nt += 11;
    441. 

  441. 

  442. /*        DGGSVP */
    443. 

  443. 

  444. 	s_copy(srnamc_1.srnamt, "DGGSVP", (ftnlen)6, (ftnlen)6);
    445. 

  445. 	infoc_1.infot = 1;
    446. 

  446. 	dggsvp_("/", "N", "N", &c__0, &c__0, &c__0, a, &c__1, b, &c__1, &tola, 
    447. 

  447. 		 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw, 
    448. 

  448. 		tau, w, &info);
    449. 

  449. 	chkxer_("DGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    450. 

  450. 		infoc_1.ok);
    451. 

  451. 	infoc_1.infot = 2;
    452. 

  452. 	dggsvp_("N", "/", "N", &c__0, &c__0, &c__0, a, &c__1, b, &c__1, &tola, 
    453. 

  453. 		 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw, 
    454. 

  454. 		tau, w, &info);
    455. 

  455. 	chkxer_("DGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    456. 

  456. 		infoc_1.ok);
    457. 

  457. 	infoc_1.infot = 3;
    458. 

  458. 	dggsvp_("N", "N", "/", &c__0, &c__0, &c__0, a, &c__1, b, &c__1, &tola, 
    459. 

  459. 		 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw, 
    460. 

  460. 		tau, w, &info);
    461. 

  461. 	chkxer_("DGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    462. 

  462. 		infoc_1.ok);
    463. 

  463. 	infoc_1.infot = 4;
    464. 

  464. 	dggsvp_("N", "N", "N", &c_n1, &c__0, &c__0, a, &c__1, b, &c__1, &tola, 
    465. 

  465. 		 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw, 
    466. 

  466. 		tau, w, &info);
    467. 

  467. 	chkxer_("DGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    468. 

  468. 		infoc_1.ok);
    469. 

  469. 	infoc_1.infot = 5;
    470. 

  470. 	dggsvp_("N", "N", "N", &c__0, &c_n1, &c__0, a, &c__1, b, &c__1, &tola, 
    471. 

  471. 		 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw, 
    472. 

  472. 		tau, w, &info);
    473. 

  473. 	chkxer_("DGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    474. 

  474. 		infoc_1.ok);
    475. 

  475. 	infoc_1.infot = 6;
    476. 

  476. 	dggsvp_("N", "N", "N", &c__0, &c__0, &c_n1, a, &c__1, b, &c__1, &tola, 
    477. 

  477. 		 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw, 
    478. 

  478. 		tau, w, &info);
    479. 

  479. 	chkxer_("DGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    480. 

  480. 		infoc_1.ok);
    481. 

  481. 	infoc_1.infot = 8;
    482. 

  482. 	dggsvp_("N", "N", "N", &c__2, &c__1, &c__1, a, &c__1, b, &c__1, &tola, 
    483. 

  483. 		 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw, 
    484. 

  484. 		tau, w, &info);
    485. 

  485. 	chkxer_("DGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    486. 

  486. 		infoc_1.ok);
    487. 

  487. 	infoc_1.infot = 10;
    488. 

  488. 	dggsvp_("N", "N", "N", &c__1, &c__2, &c__1, a, &c__1, b, &c__1, &tola, 
    489. 

  489. 		 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw, 
    490. 

  490. 		tau, w, &info);
    491. 

  491. 	chkxer_("DGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    492. 

  492. 		infoc_1.ok);
    493. 

  493. 	infoc_1.infot = 16;
    494. 

  494. 	dggsvp_("U", "N", "N", &c__2, &c__2, &c__2, a, &c__2, b, &c__2, &tola, 
    495. 

  495. 		 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw, 
    496. 

  496. 		tau, w, &info);
    497. 

  497. 	chkxer_("DGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    498. 

  498. 		infoc_1.ok);
    499. 

  499. 	infoc_1.infot = 18;
    500. 

  500. 	dggsvp_("N", "V", "N", &c__1, &c__2, &c__1, a, &c__1, b, &c__2, &tola, 
    501. 

  501. 		 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw, 
    502. 

  502. 		tau, w, &info);
    503. 

  503. 	chkxer_("DGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    504. 

  504. 		infoc_1.ok);
    505. 

  505. 	infoc_1.infot = 20;
    506. 

  506. 	dggsvp_("N", "N", "Q", &c__1, &c__1, &c__2, a, &c__1, b, &c__1, &tola, 
    507. 

  507. 		 &tolb, &dummyk, &dummyl, u, &c__1, v, &c__1, q, &c__1, iw, 
    508. 

  508. 		tau, w, &info);
    509. 

  509. 	chkxer_("DGGSVP", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    510. 

  510. 		infoc_1.ok);
    511. 

  511. 	nt += 11;
    512. 

  512. 

  513. /*        DTGSJA */
    514. 

  514. 

  515. 	s_copy(srnamc_1.srnamt, "DTGSJA", (ftnlen)6, (ftnlen)6);
    516. 

  516. 	infoc_1.infot = 1;
    517. 

  517. 	dtgsja_("/", "N", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
    518. 

  518. 		c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
    519. 

  519. 		c__1, w, &ncycle, &info);
    520. 

  520. 	chkxer_("DTGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    521. 

  521. 		infoc_1.ok);
    522. 

  522. 	infoc_1.infot = 2;
    523. 

  523. 	dtgsja_("N", "/", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
    524. 

  524. 		c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
    525. 

  525. 		c__1, w, &ncycle, &info);
    526. 

  526. 	chkxer_("DTGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    527. 

  527. 		infoc_1.ok);
    528. 

  528. 	infoc_1.infot = 3;
    529. 

  529. 	dtgsja_("N", "N", "/", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
    530. 

  530. 		c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
    531. 

  531. 		c__1, w, &ncycle, &info);
    532. 

  532. 	chkxer_("DTGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    533. 

  533. 		infoc_1.ok);
    534. 

  534. 	infoc_1.infot = 4;
    535. 

  535. 	dtgsja_("N", "N", "N", &c_n1, &c__0, &c__0, &dummyk, &dummyl, a, &
    536. 

  536. 		c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
    537. 

  537. 		c__1, w, &ncycle, &info);
    538. 

  538. 	chkxer_("DTGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    539. 

  539. 		infoc_1.ok);
    540. 

  540. 	infoc_1.infot = 5;
    541. 

  541. 	dtgsja_("N", "N", "N", &c__0, &c_n1, &c__0, &dummyk, &dummyl, a, &
    542. 

  542. 		c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
    543. 

  543. 		c__1, w, &ncycle, &info);
    544. 

  544. 	chkxer_("DTGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    545. 

  545. 		infoc_1.ok);
    546. 

  546. 	infoc_1.infot = 6;
    547. 

  547. 	dtgsja_("N", "N", "N", &c__0, &c__0, &c_n1, &dummyk, &dummyl, a, &
    548. 

  548. 		c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
    549. 

  549. 		c__1, w, &ncycle, &info);
    550. 

  550. 	chkxer_("DTGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    551. 

  551. 		infoc_1.ok);
    552. 

  552. 	infoc_1.infot = 10;
    553. 

  553. 	dtgsja_("N", "N", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
    554. 

  554. 		c__0, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
    555. 

  555. 		c__1, w, &ncycle, &info);
    556. 

  556. 	chkxer_("DTGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    557. 

  557. 		infoc_1.ok);
    558. 

  558. 	infoc_1.infot = 12;
    559. 

  559. 	dtgsja_("N", "N", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
    560. 

  560. 		c__1, b, &c__0, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
    561. 

  561. 		c__1, w, &ncycle, &info);
    562. 

  562. 	chkxer_("DTGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    563. 

  563. 		infoc_1.ok);
    564. 

  564. 	infoc_1.infot = 18;
    565. 

  565. 	dtgsja_("U", "N", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
    566. 

  566. 		c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__0, v, &c__1, q, &
    567. 

  567. 		c__1, w, &ncycle, &info);
    568. 

  568. 	chkxer_("DTGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    569. 

  569. 		infoc_1.ok);
    570. 

  570. 	infoc_1.infot = 20;
    571. 

  571. 	dtgsja_("N", "V", "N", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
    572. 

  572. 		c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__0, q, &
    573. 

  573. 		c__1, w, &ncycle, &info);
    574. 

  574. 	chkxer_("DTGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    575. 

  575. 		infoc_1.ok);
    576. 

  576. 	infoc_1.infot = 22;
    577. 

  577. 	dtgsja_("N", "N", "Q", &c__0, &c__0, &c__0, &dummyk, &dummyl, a, &
    578. 

  578. 		c__1, b, &c__1, &tola, &tolb, r1, r2, u, &c__1, v, &c__1, q, &
    579. 

  579. 		c__0, w, &ncycle, &info);
    580. 

  580. 	chkxer_("DTGSJA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    581. 

  581. 		infoc_1.ok);
    582. 

  582. 	nt += 11;
    583. 

  583. 

  584. /*     Test error exits for the GLM path. */
    585. 

  585. 

  586.     } else if (lsamen_(&c__3, path, "GLM")) {
    587. 

  587. 

  588. /*        DGGGLM */
    589. 

  589. 

  590. 	s_copy(srnamc_1.srnamt, "DGGGLM", (ftnlen)6, (ftnlen)6);
    591. 

  591. 	infoc_1.infot = 1;
    592. 

  592. 	dggglm_(&c_n1, &c__0, &c__0, a, &c__1, b, &c__1, r1, r2, r3, w, &
    593. 

  593. 		c__18, &info);
    594. 

  594. 	chkxer_("DGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    595. 

  595. 		infoc_1.ok);
    596. 

  596. 	infoc_1.infot = 2;
    597. 

  597. 	dggglm_(&c__0, &c_n1, &c__0, a, &c__1, b, &c__1, r1, r2, r3, w, &
    598. 

  598. 		c__18, &info);
    599. 

  599. 	chkxer_("DGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    600. 

  600. 		infoc_1.ok);
    601. 

  601. 	infoc_1.infot = 2;
    602. 

  602. 	dggglm_(&c__0, &c__1, &c__0, a, &c__1, b, &c__1, r1, r2, r3, w, &
    603. 

  603. 		c__18, &info);
    604. 

  604. 	chkxer_("DGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    605. 

  605. 		infoc_1.ok);
    606. 

  606. 	infoc_1.infot = 3;
    607. 

  607. 	dggglm_(&c__0, &c__0, &c_n1, a, &c__1, b, &c__1, r1, r2, r3, w, &
    608. 

  608. 		c__18, &info);
    609. 

  609. 	chkxer_("DGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    610. 

  610. 		infoc_1.ok);
    611. 

  611. 	infoc_1.infot = 3;
    612. 

  612. 	dggglm_(&c__1, &c__0, &c__0, a, &c__1, b, &c__1, r1, r2, r3, w, &
    613. 

  613. 		c__18, &info);
    614. 

  614. 	chkxer_("DGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    615. 

  615. 		infoc_1.ok);
    616. 

  616. 	infoc_1.infot = 5;
    617. 

  617. 	dggglm_(&c__0, &c__0, &c__0, a, &c__0, b, &c__1, r1, r2, r3, w, &
    618. 

  618. 		c__18, &info);
    619. 

  619. 	chkxer_("DGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    620. 

  620. 		infoc_1.ok);
    621. 

  621. 	infoc_1.infot = 7;
    622. 

  622. 	dggglm_(&c__0, &c__0, &c__0, a, &c__1, b, &c__0, r1, r2, r3, w, &
    623. 

  623. 		c__18, &info);
    624. 

  624. 	chkxer_("DGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    625. 

  625. 		infoc_1.ok);
    626. 

  626. 	infoc_1.infot = 12;
    627. 

  627. 	dggglm_(&c__1, &c__1, &c__1, a, &c__1, b, &c__1, r1, r2, r3, w, &c__1, 
    628. 

  628. 		 &info);
    629. 

  629. 	chkxer_("DGGGLM", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    630. 

  630. 		infoc_1.ok);
    631. 

  631. 	nt += 8;
    632. 

  632. 

  633. /*     Test error exits for the LSE path. */
    634. 

  634. 

  635.     } else if (lsamen_(&c__3, path, "LSE")) {
    636. 

  636. 

  637. /*        DGGLSE */
    638. 

  638. 

  639. 	s_copy(srnamc_1.srnamt, "DGGLSE", (ftnlen)6, (ftnlen)6);
    640. 

  640. 	infoc_1.infot = 1;
    641. 

  641. 	dgglse_(&c_n1, &c__0, &c__0, a, &c__1, b, &c__1, r1, r2, r3, w, &
    642. 

  642. 		c__18, &info);
    643. 

  643. 	chkxer_("DGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    644. 

  644. 		infoc_1.ok);
    645. 

  645. 	infoc_1.infot = 2;
    646. 

  646. 	dgglse_(&c__0, &c_n1, &c__0, a, &c__1, b, &c__1, r1, r2, r3, w, &
    647. 

  647. 		c__18, &info);
    648. 

  648. 	chkxer_("DGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    649. 

  649. 		infoc_1.ok);
    650. 

  650. 	infoc_1.infot = 3;
    651. 

  651. 	dgglse_(&c__0, &c__0, &c_n1, a, &c__1, b, &c__1, r1, r2, r3, w, &
    652. 

  652. 		c__18, &info);
    653. 

  653. 	chkxer_("DGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    654. 

  654. 		infoc_1.ok);
    655. 

  655. 	infoc_1.infot = 3;
    656. 

  656. 	dgglse_(&c__0, &c__0, &c__1, a, &c__1, b, &c__1, r1, r2, r3, w, &
    657. 

  657. 		c__18, &info);
    658. 

  658. 	chkxer_("DGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    659. 

  659. 		infoc_1.ok);
    660. 

  660. 	infoc_1.infot = 3;
    661. 

  661. 	dgglse_(&c__0, &c__1, &c__0, a, &c__1, b, &c__1, r1, r2, r3, w, &
    662. 

  662. 		c__18, &info);
    663. 

  663. 	chkxer_("DGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    664. 

  664. 		infoc_1.ok);
    665. 

  665. 	infoc_1.infot = 5;
    666. 

  666. 	dgglse_(&c__0, &c__0, &c__0, a, &c__0, b, &c__1, r1, r2, r3, w, &
    667. 

  667. 		c__18, &info);
    668. 

  668. 	chkxer_("DGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    669. 

  669. 		infoc_1.ok);
    670. 

  670. 	infoc_1.infot = 7;
    671. 

  671. 	dgglse_(&c__0, &c__0, &c__0, a, &c__1, b, &c__0, r1, r2, r3, w, &
    672. 

  672. 		c__18, &info);
    673. 

  673. 	chkxer_("DGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    674. 

  674. 		infoc_1.ok);
    675. 

  675. 	infoc_1.infot = 12;
    676. 

  676. 	dgglse_(&c__1, &c__1, &c__1, a, &c__1, b, &c__1, r1, r2, r3, w, &c__1, 
    677. 

  677. 		 &info);
    678. 

  678. 	chkxer_("DGGLSE", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    679. 

  679. 		infoc_1.ok);
    680. 

  680. 	nt += 8;
    681. 

  681. 

  682. /*     Test error exits for the GQR path. */
    683. 

  683. 

  684.     } else if (lsamen_(&c__3, path, "GQR")) {
    685. 

  685. 

  686. /*        DGGQRF */
    687. 

  687. 

  688. 	s_copy(srnamc_1.srnamt, "DGGQRF", (ftnlen)6, (ftnlen)6);
    689. 

  689. 	infoc_1.infot = 1;
    690. 

  690. 	dggqrf_(&c_n1, &c__0, &c__0, a, &c__1, r1, b, &c__1, r2, w, &c__18, &
    691. 

  691. 		info);
    692. 

  692. 	chkxer_("DGGQRF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    693. 

  693. 		infoc_1.ok);
    694. 

  694. 	infoc_1.infot = 2;
    695. 

  695. 	dggqrf_(&c__0, &c_n1, &c__0, a, &c__1, r1, b, &c__1, r2, w, &c__18, &
    696. 

  696. 		info);
    697. 

  697. 	chkxer_("DGGQRF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    698. 

  698. 		infoc_1.ok);
    699. 

  699. 	infoc_1.infot = 3;
    700. 

  700. 	dggqrf_(&c__0, &c__0, &c_n1, a, &c__1, r1, b, &c__1, r2, w, &c__18, &
    701. 

  701. 		info);
    702. 

  702. 	chkxer_("DGGQRF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    703. 

  703. 		infoc_1.ok);
    704. 

  704. 	infoc_1.infot = 5;
    705. 

  705. 	dggqrf_(&c__0, &c__0, &c__0, a, &c__0, r1, b, &c__1, r2, w, &c__18, &
    706. 

  706. 		info);
    707. 

  707. 	chkxer_("DGGQRF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    708. 

  708. 		infoc_1.ok);
    709. 

  709. 	infoc_1.infot = 8;
    710. 

  710. 	dggqrf_(&c__0, &c__0, &c__0, a, &c__1, r1, b, &c__0, r2, w, &c__18, &
    711. 

  711. 		info);
    712. 

  712. 	chkxer_("DGGQRF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    713. 

  713. 		infoc_1.ok);
    714. 

  714. 	infoc_1.infot = 11;
    715. 

  715. 	dggqrf_(&c__1, &c__1, &c__2, a, &c__1, r1, b, &c__1, r2, w, &c__1, &
    716. 

  716. 		info);
    717. 

  717. 	chkxer_("DGGQRF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    718. 

  718. 		infoc_1.ok);
    719. 

  719. 	nt += 6;
    720. 

  720. 

  721. /*        DGGRQF */
    722. 

  722. 

  723. 	s_copy(srnamc_1.srnamt, "DGGRQF", (ftnlen)6, (ftnlen)6);
    724. 

  724. 	infoc_1.infot = 1;
    725. 

  725. 	dggrqf_(&c_n1, &c__0, &c__0, a, &c__1, r1, b, &c__1, r2, w, &c__18, &
    726. 

  726. 		info);
    727. 

  727. 	chkxer_("DGGRQF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    728. 

  728. 		infoc_1.ok);
    729. 

  729. 	infoc_1.infot = 2;
    730. 

  730. 	dggrqf_(&c__0, &c_n1, &c__0, a, &c__1, r1, b, &c__1, r2, w, &c__18, &
    731. 

  731. 		info);
    732. 

  732. 	chkxer_("DGGRQF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    733. 

  733. 		infoc_1.ok);
    734. 

  734. 	infoc_1.infot = 3;
    735. 

  735. 	dggrqf_(&c__0, &c__0, &c_n1, a, &c__1, r1, b, &c__1, r2, w, &c__18, &
    736. 

  736. 		info);
    737. 

  737. 	chkxer_("DGGRQF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    738. 

  738. 		infoc_1.ok);
    739. 

  739. 	infoc_1.infot = 5;
    740. 

  740. 	dggrqf_(&c__0, &c__0, &c__0, a, &c__0, r1, b, &c__1, r2, w, &c__18, &
    741. 

  741. 		info);
    742. 

  742. 	chkxer_("DGGRQF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    743. 

  743. 		infoc_1.ok);
    744. 

  744. 	infoc_1.infot = 8;
    745. 

  745. 	dggrqf_(&c__0, &c__0, &c__0, a, &c__1, r1, b, &c__0, r2, w, &c__18, &
    746. 

  746. 		info);
    747. 

  747. 	chkxer_("DGGRQF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    748. 

  748. 		infoc_1.ok);
    749. 

  749. 	infoc_1.infot = 11;
    750. 

  750. 	dggrqf_(&c__1, &c__1, &c__2, a, &c__1, r1, b, &c__1, r2, w, &c__1, &
    751. 

  751. 		info);
    752. 

  752. 	chkxer_("DGGRQF", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    753. 

  753. 		infoc_1.ok);
    754. 

  754. 	nt += 6;
    755. 

  755. 

  756. /*     Test error exits for the DGS, DGV, DGX, and DXV paths. */
    757. 

  757. 

  758.     } else if (lsamen_(&c__3, path, "DGS") || lsamen_(&
    759. 

  759. 	    c__3, path, "DGV") || lsamen_(&c__3, path, 
    760. 

  760. 	    "DGX") || lsamen_(&c__3, path, "DXV")) {
    761. 

  761. 

  762. /*        DGGES */
    763. 

  763. 

  764. 	s_copy(srnamc_1.srnamt, "DGGES ", (ftnlen)6, (ftnlen)6);
    765. 

  765. 	infoc_1.infot = 1;
    766. 

  766. 	dgges_("/", "N", "S", (L_fp)dlctes_, &c__1, a, &c__1, b, &c__1, &sdim, 
    767. 

  767. 		 r1, r2, r3, q, &c__1, u, &c__1, w, &c__1, bw, &info);
    768. 

  768. 	chkxer_("DGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    769. 

  769. 		infoc_1.ok);
    770. 

  770. 	infoc_1.infot = 2;
    771. 

  771. 	dgges_("N", "/", "S", (L_fp)dlctes_, &c__1, a, &c__1, b, &c__1, &sdim, 
    772. 

  772. 		 r1, r2, r3, q, &c__1, u, &c__1, w, &c__1, bw, &info);
    773. 

  773. 	chkxer_("DGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    774. 

  774. 		infoc_1.ok);
    775. 

  775. 	infoc_1.infot = 3;
    776. 

  776. 	dgges_("N", "V", "/", (L_fp)dlctes_, &c__1, a, &c__1, b, &c__1, &sdim, 
    777. 

  777. 		 r1, r2, r3, q, &c__1, u, &c__1, w, &c__1, bw, &info);
    778. 

  778. 	chkxer_("DGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    779. 

  779. 		infoc_1.ok);
    780. 

  780. 	infoc_1.infot = 5;
    781. 

  781. 	dgges_("N", "V", "S", (L_fp)dlctes_, &c_n1, a, &c__1, b, &c__1, &sdim, 
    782. 

  782. 		 r1, r2, r3, q, &c__1, u, &c__1, w, &c__1, bw, &info);
    783. 

  783. 	chkxer_("DGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    784. 

  784. 		infoc_1.ok);
    785. 

  785. 	infoc_1.infot = 7;
    786. 

  786. 	dgges_("N", "V", "S", (L_fp)dlctes_, &c__1, a, &c__0, b, &c__1, &sdim, 
    787. 

  787. 		 r1, r2, r3, q, &c__1, u, &c__1, w, &c__1, bw, &info);
    788. 

  788. 	chkxer_("DGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    789. 

  789. 		infoc_1.ok);
    790. 

  790. 	infoc_1.infot = 9;
    791. 

  791. 	dgges_("N", "V", "S", (L_fp)dlctes_, &c__1, a, &c__1, b, &c__0, &sdim, 
    792. 

  792. 		 r1, r2, r3, q, &c__1, u, &c__1, w, &c__1, bw, &info);
    793. 

  793. 	chkxer_("DGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    794. 

  794. 		infoc_1.ok);
    795. 

  795. 	infoc_1.infot = 15;
    796. 

  796. 	dgges_("N", "V", "S", (L_fp)dlctes_, &c__1, a, &c__1, b, &c__1, &sdim, 
    797. 

  797. 		 r1, r2, r3, q, &c__0, u, &c__1, w, &c__1, bw, &info);
    798. 

  798. 	chkxer_("DGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    799. 

  799. 		infoc_1.ok);
    800. 

  800. 	infoc_1.infot = 15;
    801. 

  801. 	dgges_("V", "V", "S", (L_fp)dlctes_, &c__2, a, &c__2, b, &c__2, &sdim, 
    802. 

  802. 		 r1, r2, r3, q, &c__1, u, &c__2, w, &c__1, bw, &info);
    803. 

  803. 	chkxer_("DGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    804. 

  804. 		infoc_1.ok);
    805. 

  805. 	infoc_1.infot = 17;
    806. 

  806. 	dgges_("N", "V", "S", (L_fp)dlctes_, &c__1, a, &c__1, b, &c__1, &sdim, 
    807. 

  807. 		 r1, r2, r3, q, &c__1, u, &c__0, w, &c__1, bw, &info);
    808. 

  808. 	chkxer_("DGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    809. 

  809. 		infoc_1.ok);
    810. 

  810. 	infoc_1.infot = 17;
    811. 

  811. 	dgges_("V", "V", "S", (L_fp)dlctes_, &c__2, a, &c__2, b, &c__2, &sdim, 
    812. 

  812. 		 r1, r2, r3, q, &c__2, u, &c__1, w, &c__1, bw, &info);
    813. 

  813. 	chkxer_("DGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    814. 

  814. 		infoc_1.ok);
    815. 

  815. 	infoc_1.infot = 19;
    816. 

  816. 	dgges_("V", "V", "S", (L_fp)dlctes_, &c__2, a, &c__2, b, &c__2, &sdim, 
    817. 

  817. 		 r1, r2, r3, q, &c__2, u, &c__2, w, &c__1, bw, &info);
    818. 

  818. 	chkxer_("DGGES ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    819. 

  819. 		infoc_1.ok);
    820. 

  820. 	nt += 11;
    821. 

  821. 

  822. /*        DGGESX */
    823. 

  823. 

  824. 	s_copy(srnamc_1.srnamt, "DGGESX", (ftnlen)6, (ftnlen)6);
    825. 

  825. 	infoc_1.infot = 1;
    826. 

  826. 	dggesx_("/", "N", "S", (L_fp)dlctsx_, "N", &c__1, a, &c__1, b, &c__1, 
    827. 

  827. 		&sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw, 
    828. 

  828. 		 &c__1, bw, &info)
    829. 

  829. 		;
    830. 

  830. 	chkxer_("DGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    831. 

  831. 		infoc_1.ok);
    832. 

  832. 	infoc_1.infot = 2;
    833. 

  833. 	dggesx_("N", "/", "S", (L_fp)dlctsx_, "N", &c__1, a, &c__1, b, &c__1, 
    834. 

  834. 		&sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw, 
    835. 

  835. 		 &c__1, bw, &info)
    836. 

  836. 		;
    837. 

  837. 	chkxer_("DGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    838. 

  838. 		infoc_1.ok);
    839. 

  839. 	infoc_1.infot = 3;
    840. 

  840. 	dggesx_("V", "V", "/", (L_fp)dlctsx_, "N", &c__1, a, &c__1, b, &c__1, 
    841. 

  841. 		&sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw, 
    842. 

  842. 		 &c__1, bw, &info)
    843. 

  843. 		;
    844. 

  844. 	chkxer_("DGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    845. 

  845. 		infoc_1.ok);
    846. 

  846. 	infoc_1.infot = 5;
    847. 

  847. 	dggesx_("V", "V", "S", (L_fp)dlctsx_, "/", &c__1, a, &c__1, b, &c__1, 
    848. 

  848. 		&sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw, 
    849. 

  849. 		 &c__1, bw, &info)
    850. 

  850. 		;
    851. 

  851. 	chkxer_("DGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    852. 

  852. 		infoc_1.ok);
    853. 

  853. 	infoc_1.infot = 6;
    854. 

  854. 	dggesx_("V", "V", "S", (L_fp)dlctsx_, "B", &c_n1, a, &c__1, b, &c__1, 
    855. 

  855. 		&sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw, 
    856. 

  856. 		 &c__1, bw, &info)
    857. 

  857. 		;
    858. 

  858. 	chkxer_("DGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    859. 

  859. 		infoc_1.ok);
    860. 

  860. 	infoc_1.infot = 8;
    861. 

  861. 	dggesx_("V", "V", "S", (L_fp)dlctsx_, "B", &c__1, a, &c__0, b, &c__1, 
    862. 

  862. 		&sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw, 
    863. 

  863. 		 &c__1, bw, &info)
    864. 

  864. 		;
    865. 

  865. 	chkxer_("DGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    866. 

  866. 		infoc_1.ok);
    867. 

  867. 	infoc_1.infot = 10;
    868. 

  868. 	dggesx_("V", "V", "S", (L_fp)dlctsx_, "B", &c__1, a, &c__1, b, &c__0, 
    869. 

  869. 		&sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw, 
    870. 

  870. 		 &c__1, bw, &info)
    871. 

  871. 		;
    872. 

  872. 	chkxer_("DGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    873. 

  873. 		infoc_1.ok);
    874. 

  874. 	infoc_1.infot = 16;
    875. 

  875. 	dggesx_("V", "V", "S", (L_fp)dlctsx_, "B", &c__1, a, &c__1, b, &c__1, 
    876. 

  876. 		&sdim, r1, r2, r3, q, &c__0, u, &c__1, rce, rcv, w, &c__1, iw, 
    877. 

  877. 		 &c__1, bw, &info)
    878. 

  878. 		;
    879. 

  879. 	chkxer_("DGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    880. 

  880. 		infoc_1.ok);
    881. 

  881. 	infoc_1.infot = 16;
    882. 

  882. 	dggesx_("V", "V", "S", (L_fp)dlctsx_, "B", &c__2, a, &c__2, b, &c__2, 
    883. 

  883. 		&sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__1, iw, 
    884. 

  884. 		 &c__1, bw, &info)
    885. 

  885. 		;
    886. 

  886. 	chkxer_("DGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    887. 

  887. 		infoc_1.ok);
    888. 

  888. 	infoc_1.infot = 18;
    889. 

  889. 	dggesx_("V", "V", "S", (L_fp)dlctsx_, "B", &c__1, a, &c__1, b, &c__1, 
    890. 

  890. 		&sdim, r1, r2, r3, q, &c__1, u, &c__0, rce, rcv, w, &c__1, iw, 
    891. 

  891. 		 &c__1, bw, &info)
    892. 

  892. 		;
    893. 

  893. 	chkxer_("DGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    894. 

  894. 		infoc_1.ok);
    895. 

  895. 	infoc_1.infot = 18;
    896. 

  896. 	dggesx_("V", "V", "S", (L_fp)dlctsx_, "B", &c__2, a, &c__2, b, &c__2, 
    897. 

  897. 		&sdim, r1, r2, r3, q, &c__2, u, &c__1, rce, rcv, w, &c__1, iw, 
    898. 

  898. 		 &c__1, bw, &info)
    899. 

  899. 		;
    900. 

  900. 	chkxer_("DGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    901. 

  901. 		infoc_1.ok);
    902. 

  902. 	infoc_1.infot = 22;
    903. 

  903. 	dggesx_("V", "V", "S", (L_fp)dlctsx_, "B", &c__2, a, &c__2, b, &c__2, 
    904. 

  904. 		&sdim, r1, r2, r3, q, &c__2, u, &c__2, rce, rcv, w, &c__1, iw, 
    905. 

  905. 		 &c__1, bw, &info)
    906. 

  906. 		;
    907. 

  907. 	chkxer_("DGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    908. 

  908. 		infoc_1.ok);
    909. 

  909. 	infoc_1.infot = 24;
    910. 

  910. 	dggesx_("V", "V", "S", (L_fp)dlctsx_, "V", &c__1, a, &c__1, b, &c__1, 
    911. 

  911. 		&sdim, r1, r2, r3, q, &c__1, u, &c__1, rce, rcv, w, &c__32, 
    912. 

  912. 		iw, &c__0, bw, &info);
    913. 

  913. 	chkxer_("DGGESX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    914. 

  914. 		infoc_1.ok);
    915. 

  915. 	nt += 13;
    916. 

  916. 

  917. /*        DGGEV */
    918. 

  918. 

  919. 	s_copy(srnamc_1.srnamt, "DGGEV ", (ftnlen)6, (ftnlen)6);
    920. 

  920. 	infoc_1.infot = 1;
    921. 

  921. 	dggev_("/", "N", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q, &c__1, u, &
    922. 

  922. 		c__1, w, &c__1, &info);
    923. 

  923. 	chkxer_("DGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    924. 

  924. 		infoc_1.ok);
    925. 

  925. 	infoc_1.infot = 2;
    926. 

  926. 	dggev_("N", "/", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q, &c__1, u, &
    927. 

  927. 		c__1, w, &c__1, &info);
    928. 

  928. 	chkxer_("DGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    929. 

  929. 		infoc_1.ok);
    930. 

  930. 	infoc_1.infot = 3;
    931. 

  931. 	dggev_("V", "V", &c_n1, a, &c__1, b, &c__1, r1, r2, r3, q, &c__1, u, &
    932. 

  932. 		c__1, w, &c__1, &info);
    933. 

  933. 	chkxer_("DGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    934. 

  934. 		infoc_1.ok);
    935. 

  935. 	infoc_1.infot = 5;
    936. 

  936. 	dggev_("V", "V", &c__1, a, &c__0, b, &c__1, r1, r2, r3, q, &c__1, u, &
    937. 

  937. 		c__1, w, &c__1, &info);
    938. 

  938. 	chkxer_("DGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    939. 

  939. 		infoc_1.ok);
    940. 

  940. 	infoc_1.infot = 7;
    941. 

  941. 	dggev_("V", "V", &c__1, a, &c__1, b, &c__0, r1, r2, r3, q, &c__1, u, &
    942. 

  942. 		c__1, w, &c__1, &info);
    943. 

  943. 	chkxer_("DGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    944. 

  944. 		infoc_1.ok);
    945. 

  945. 	infoc_1.infot = 12;
    946. 

  946. 	dggev_("N", "V", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q, &c__0, u, &
    947. 

  947. 		c__1, w, &c__1, &info);
    948. 

  948. 	chkxer_("DGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    949. 

  949. 		infoc_1.ok);
    950. 

  950. 	infoc_1.infot = 12;
    951. 

  951. 	dggev_("V", "V", &c__2, a, &c__2, b, &c__2, r1, r2, r3, q, &c__1, u, &
    952. 

  952. 		c__2, w, &c__1, &info);
    953. 

  953. 	chkxer_("DGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    954. 

  954. 		infoc_1.ok);
    955. 

  955. 	infoc_1.infot = 14;
    956. 

  956. 	dggev_("V", "N", &c__2, a, &c__2, b, &c__2, r1, r2, r3, q, &c__2, u, &
    957. 

  957. 		c__0, w, &c__1, &info);
    958. 

  958. 	chkxer_("DGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    959. 

  959. 		infoc_1.ok);
    960. 

  960. 	infoc_1.infot = 14;
    961. 

  961. 	dggev_("V", "V", &c__2, a, &c__2, b, &c__2, r1, r2, r3, q, &c__2, u, &
    962. 

  962. 		c__1, w, &c__1, &info);
    963. 

  963. 	chkxer_("DGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    964. 

  964. 		infoc_1.ok);
    965. 

  965. 	infoc_1.infot = 16;
    966. 

  966. 	dggev_("V", "V", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q, &c__1, u, &
    967. 

  967. 		c__1, w, &c__1, &info);
    968. 

  968. 	chkxer_("DGGEV ", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    969. 

  969. 		infoc_1.ok);
    970. 

  970. 	nt += 10;
    971. 

  971. 

  972. /*        DGGEVX */
    973. 

  973. 

  974. 	s_copy(srnamc_1.srnamt, "DGGEVX", (ftnlen)6, (ftnlen)6);
    975. 

  975. 	infoc_1.infot = 1;
    976. 

  976. 	dggevx_("/", "N", "N", "N", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q, 
    977. 

  977. 		&c__1, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv, 
    978. 

  978. 		 w, &c__1, iw, bw, &info);
    979. 

  979. 	chkxer_("DGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    980. 

  980. 		infoc_1.ok);
    981. 

  981. 	infoc_1.infot = 2;
    982. 

  982. 	dggevx_("N", "/", "N", "N", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q, 
    983. 

  983. 		&c__1, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv, 
    984. 

  984. 		 w, &c__1, iw, bw, &info);
    985. 

  985. 	chkxer_("DGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    986. 

  986. 		infoc_1.ok);
    987. 

  987. 	infoc_1.infot = 3;
    988. 

  988. 	dggevx_("N", "N", "/", "N", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q, 
    989. 

  989. 		&c__1, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv, 
    990. 

  990. 		 w, &c__1, iw, bw, &info);
    991. 

  991. 	chkxer_("DGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    992. 

  992. 		infoc_1.ok);
    993. 

  993. 	infoc_1.infot = 4;
    994. 

  994. 	dggevx_("N", "N", "N", "/", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q, 
    995. 

  995. 		&c__1, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv, 
    996. 

  996. 		 w, &c__1, iw, bw, &info);
    997. 

  997. 	chkxer_("DGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    998. 

  998. 		infoc_1.ok);
    999. 

  999. 	infoc_1.infot = 5;
    1000. 

  1000. 	dggevx_("N", "N", "N", "N", &c_n1, a, &c__1, b, &c__1, r1, r2, r3, q, 
    1001. 

  1001. 		&c__1, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv, 
    1002. 

  1002. 		 w, &c__1, iw, bw, &info);
    1003. 

  1003. 	chkxer_("DGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1004. 

  1004. 		infoc_1.ok);
    1005. 

  1005. 	infoc_1.infot = 7;
    1006. 

  1006. 	dggevx_("N", "N", "N", "N", &c__1, a, &c__0, b, &c__1, r1, r2, r3, q, 
    1007. 

  1007. 		&c__1, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv, 
    1008. 

  1008. 		 w, &c__1, iw, bw, &info);
    1009. 

  1009. 	chkxer_("DGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1010. 

  1010. 		infoc_1.ok);
    1011. 

  1011. 	infoc_1.infot = 9;
    1012. 

  1012. 	dggevx_("N", "N", "N", "N", &c__1, a, &c__1, b, &c__0, r1, r2, r3, q, 
    1013. 

  1013. 		&c__1, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv, 
    1014. 

  1014. 		 w, &c__1, iw, bw, &info);
    1015. 

  1015. 	chkxer_("DGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1016. 

  1016. 		infoc_1.ok);
    1017. 

  1017. 	infoc_1.infot = 14;
    1018. 

  1018. 	dggevx_("N", "N", "N", "N", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q, 
    1019. 

  1019. 		&c__0, u, &c__1, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv, 
    1020. 

  1020. 		 w, &c__1, iw, bw, &info);
    1021. 

  1021. 	chkxer_("DGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1022. 

  1022. 		infoc_1.ok);
    1023. 

  1023. 	infoc_1.infot = 14;
    1024. 

  1024. 	dggevx_("N", "V", "N", "N", &c__2, a, &c__2, b, &c__2, r1, r2, r3, q, 
    1025. 

  1025. 		&c__1, u, &c__2, &c__1, &c__2, ls, rs, &anrm, &bnrm, rce, rcv, 
    1026. 

  1026. 		 w, &c__1, iw, bw, &info);
    1027. 

  1027. 	chkxer_("DGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1028. 

  1028. 		infoc_1.ok);
    1029. 

  1029. 	infoc_1.infot = 16;
    1030. 

  1030. 	dggevx_("N", "N", "N", "N", &c__1, a, &c__1, b, &c__1, r1, r2, r3, q, 
    1031. 

  1031. 		&c__1, u, &c__0, &c__1, &c__1, ls, rs, &anrm, &bnrm, rce, rcv, 
    1032. 

  1032. 		 w, &c__1, iw, bw, &info);
    1033. 

  1033. 	chkxer_("DGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1034. 

  1034. 		infoc_1.ok);
    1035. 

  1035. 	infoc_1.infot = 16;
    1036. 

  1036. 	dggevx_("N", "N", "V", "N", &c__2, a, &c__2, b, &c__2, r1, r2, r3, q, 
    1037. 

  1037. 		&c__2, u, &c__1, &c__1, &c__2, ls, rs, &anrm, &bnrm, rce, rcv, 
    1038. 

  1038. 		 w, &c__1, iw, bw, &info);
    1039. 

  1039. 	chkxer_("DGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1040. 

  1040. 		infoc_1.ok);
    1041. 

  1041. 	infoc_1.infot = 26;
    1042. 

  1042. 	dggevx_("N", "N", "V", "N", &c__2, a, &c__2, b, &c__2, r1, r2, r3, q, 
    1043. 

  1043. 		&c__2, u, &c__2, &c__1, &c__2, ls, rs, &anrm, &bnrm, rce, rcv, 
    1044. 

  1044. 		 w, &c__1, iw, bw, &info);
    1045. 

  1045. 	chkxer_("DGGEVX", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1046. 

  1046. 		infoc_1.ok);
    1047. 

  1047. 	nt += 12;
    1048. 

  1048. 

  1049. /*        DTGEXC */
    1050. 

  1050. 

  1051. 	s_copy(srnamc_1.srnamt, "DTGEXC", (ftnlen)6, (ftnlen)6);
    1052. 

  1052. 	infoc_1.infot = 3;
    1053. 

  1053. 	dtgexc_(&c_true, &c_true, &c_n1, a, &c__1, b, &c__1, q, &c__1, z__, &
    1054. 

  1054. 		c__1, &ifst, &ilst, w, &c__1, &info);
    1055. 

  1055. 	chkxer_("DTGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1056. 

  1056. 		infoc_1.ok);
    1057. 

  1057. 	infoc_1.infot = 5;
    1058. 

  1058. 	dtgexc_(&c_true, &c_true, &c__1, a, &c__0, b, &c__1, q, &c__1, z__, &
    1059. 

  1059. 		c__1, &ifst, &ilst, w, &c__1, &info);
    1060. 

  1060. 	chkxer_("DTGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1061. 

  1061. 		infoc_1.ok);
    1062. 

  1062. 	infoc_1.infot = 7;
    1063. 

  1063. 	dtgexc_(&c_true, &c_true, &c__1, a, &c__1, b, &c__0, q, &c__1, z__, &
    1064. 

  1064. 		c__1, &ifst, &ilst, w, &c__1, &info);
    1065. 

  1065. 	chkxer_("DTGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1066. 

  1066. 		infoc_1.ok);
    1067. 

  1067. 	infoc_1.infot = 9;
    1068. 

  1068. 	dtgexc_(&c_false, &c_true, &c__1, a, &c__1, b, &c__1, q, &c__0, z__, &
    1069. 

  1069. 		c__1, &ifst, &ilst, w, &c__1, &info);
    1070. 

  1070. 	chkxer_("DTGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1071. 

  1071. 		infoc_1.ok);
    1072. 

  1072. 	infoc_1.infot = 9;
    1073. 

  1073. 	dtgexc_(&c_true, &c_true, &c__1, a, &c__1, b, &c__1, q, &c__0, z__, &
    1074. 

  1074. 		c__1, &ifst, &ilst, w, &c__1, &info);
    1075. 

  1075. 	chkxer_("DTGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1076. 

  1076. 		infoc_1.ok);
    1077. 

  1077. 	infoc_1.infot = 11;
    1078. 

  1078. 	dtgexc_(&c_true, &c_false, &c__1, a, &c__1, b, &c__1, q, &c__1, z__, &
    1079. 

  1079. 		c__0, &ifst, &ilst, w, &c__1, &info);
    1080. 

  1080. 	chkxer_("DTGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1081. 

  1081. 		infoc_1.ok);
    1082. 

  1082. 	infoc_1.infot = 11;
    1083. 

  1083. 	dtgexc_(&c_true, &c_true, &c__1, a, &c__1, b, &c__1, q, &c__1, z__, &
    1084. 

  1084. 		c__0, &ifst, &ilst, w, &c__1, &info);
    1085. 

  1085. 	chkxer_("DTGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1086. 

  1086. 		infoc_1.ok);
    1087. 

  1087. 	infoc_1.infot = 15;
    1088. 

  1088. 	dtgexc_(&c_true, &c_true, &c__1, a, &c__1, b, &c__1, q, &c__1, z__, &
    1089. 

  1089. 		c__1, &ifst, &ilst, w, &c__0, &info);
    1090. 

  1090. 	chkxer_("DTGEXC", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1091. 

  1091. 		infoc_1.ok);
    1092. 

  1092. 	nt += 8;
    1093. 

  1093. 

  1094. /*        DTGSEN */
    1095. 

  1095. 

  1096. 	s_copy(srnamc_1.srnamt, "DTGSEN", (ftnlen)6, (ftnlen)6);
    1097. 

  1097. 	infoc_1.infot = 1;
    1098. 

  1098. 	dtgsen_(&c_n1, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1, 
    1099. 

  1099. 		r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1, 
    1100. 

  1100. 		 iw, &c__1, &info);
    1101. 

  1101. 	chkxer_("DTGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1102. 

  1102. 		infoc_1.ok);
    1103. 

  1103. 	infoc_1.infot = 5;
    1104. 

  1104. 	dtgsen_(&c__1, &c_true, &c_true, sel, &c_n1, a, &c__1, b, &c__1, r1, 
    1105. 

  1105. 		r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1, 
    1106. 

  1106. 		 iw, &c__1, &info);
    1107. 

  1107. 	chkxer_("DTGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1108. 

  1108. 		infoc_1.ok);
    1109. 

  1109. 	infoc_1.infot = 7;
    1110. 

  1110. 	dtgsen_(&c__1, &c_true, &c_true, sel, &c__1, a, &c__0, b, &c__1, r1, 
    1111. 

  1111. 		r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1, 
    1112. 

  1112. 		 iw, &c__1, &info);
    1113. 

  1113. 	chkxer_("DTGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1114. 

  1114. 		infoc_1.ok);
    1115. 

  1115. 	infoc_1.infot = 9;
    1116. 

  1116. 	dtgsen_(&c__1, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__0, r1, 
    1117. 

  1117. 		r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1, 
    1118. 

  1118. 		 iw, &c__1, &info);
    1119. 

  1119. 	chkxer_("DTGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1120. 

  1120. 		infoc_1.ok);
    1121. 

  1121. 	infoc_1.infot = 14;
    1122. 

  1122. 	dtgsen_(&c__1, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1, 
    1123. 

  1123. 		r2, r3, q, &c__0, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1, 
    1124. 

  1124. 		 iw, &c__1, &info);
    1125. 

  1125. 	chkxer_("DTGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1126. 

  1126. 		infoc_1.ok);
    1127. 

  1127. 	infoc_1.infot = 16;
    1128. 

  1128. 	dtgsen_(&c__1, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1, 
    1129. 

  1129. 		r2, r3, q, &c__1, z__, &c__0, &m, &tola, &tolb, rcv, w, &c__1, 
    1130. 

  1130. 		 iw, &c__1, &info);
    1131. 

  1131. 	chkxer_("DTGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1132. 

  1132. 		infoc_1.ok);
    1133. 

  1133. 	infoc_1.infot = 22;
    1134. 

  1134. 	dtgsen_(&c__0, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1, 
    1135. 

  1135. 		r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1, 
    1136. 

  1136. 		 iw, &c__1, &info);
    1137. 

  1137. 	chkxer_("DTGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1138. 

  1138. 		infoc_1.ok);
    1139. 

  1139. 	infoc_1.infot = 22;
    1140. 

  1140. 	dtgsen_(&c__1, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1, 
    1141. 

  1141. 		r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1, 
    1142. 

  1142. 		 iw, &c__1, &info);
    1143. 

  1143. 	chkxer_("DTGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1144. 

  1144. 		infoc_1.ok);
    1145. 

  1145. 	infoc_1.infot = 22;
    1146. 

  1146. 	dtgsen_(&c__2, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1, 
    1147. 

  1147. 		r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &c__1, 
    1148. 

  1148. 		 iw, &c__1, &info);
    1149. 

  1149. 	chkxer_("DTGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1150. 

  1150. 		infoc_1.ok);
    1151. 

  1151. 	infoc_1.infot = 24;
    1152. 

  1152. 	dtgsen_(&c__0, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1, 
    1153. 

  1153. 		r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &
    1154. 

  1154. 		c__20, iw, &c__0, &info);
    1155. 

  1155. 	chkxer_("DTGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1156. 

  1156. 		infoc_1.ok);
    1157. 

  1157. 	infoc_1.infot = 24;
    1158. 

  1158. 	dtgsen_(&c__1, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1, 
    1159. 

  1159. 		r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &
    1160. 

  1160. 		c__20, iw, &c__0, &info);
    1161. 

  1161. 	chkxer_("DTGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1162. 

  1162. 		infoc_1.ok);
    1163. 

  1163. 	infoc_1.infot = 24;
    1164. 

  1164. 	dtgsen_(&c__2, &c_true, &c_true, sel, &c__1, a, &c__1, b, &c__1, r1, 
    1165. 

  1165. 		r2, r3, q, &c__1, z__, &c__1, &m, &tola, &tolb, rcv, w, &
    1166. 

  1166. 		c__20, iw, &c__1, &info);
    1167. 

  1167. 	chkxer_("DTGSEN", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1168. 

  1168. 		infoc_1.ok);
    1169. 

  1169. 	nt += 12;
    1170. 

  1170. 

  1171. /*        DTGSNA */
    1172. 

  1172. 

  1173. 	s_copy(srnamc_1.srnamt, "DTGSNA", (ftnlen)6, (ftnlen)6);
    1174. 

  1174. 	infoc_1.infot = 1;
    1175. 

  1175. 	dtgsna_("/", "A", sel, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &c__1, 
    1176. 

  1176. 		r1, r2, &c__1, &m, w, &c__1, iw, &info);
    1177. 

  1177. 	chkxer_("DTGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1178. 

  1178. 		infoc_1.ok);
    1179. 

  1179. 	infoc_1.infot = 2;
    1180. 

  1180. 	dtgsna_("B", "/", sel, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &c__1, 
    1181. 

  1181. 		r1, r2, &c__1, &m, w, &c__1, iw, &info);
    1182. 

  1182. 	chkxer_("DTGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1183. 

  1183. 		infoc_1.ok);
    1184. 

  1184. 	infoc_1.infot = 4;
    1185. 

  1185. 	dtgsna_("B", "A", sel, &c_n1, a, &c__1, b, &c__1, q, &c__1, u, &c__1, 
    1186. 

  1186. 		r1, r2, &c__1, &m, w, &c__1, iw, &info);
    1187. 

  1187. 	chkxer_("DTGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1188. 

  1188. 		infoc_1.ok);
    1189. 

  1189. 	infoc_1.infot = 6;
    1190. 

  1190. 	dtgsna_("B", "A", sel, &c__1, a, &c__0, b, &c__1, q, &c__1, u, &c__1, 
    1191. 

  1191. 		r1, r2, &c__1, &m, w, &c__1, iw, &info);
    1192. 

  1192. 	chkxer_("DTGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1193. 

  1193. 		infoc_1.ok);
    1194. 

  1194. 	infoc_1.infot = 8;
    1195. 

  1195. 	dtgsna_("B", "A", sel, &c__1, a, &c__1, b, &c__0, q, &c__1, u, &c__1, 
    1196. 

  1196. 		r1, r2, &c__1, &m, w, &c__1, iw, &info);
    1197. 

  1197. 	chkxer_("DTGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1198. 

  1198. 		infoc_1.ok);
    1199. 

  1199. 	infoc_1.infot = 10;
    1200. 

  1200. 	dtgsna_("E", "A", sel, &c__1, a, &c__1, b, &c__1, q, &c__0, u, &c__1, 
    1201. 

  1201. 		r1, r2, &c__1, &m, w, &c__1, iw, &info);
    1202. 

  1202. 	chkxer_("DTGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1203. 

  1203. 		infoc_1.ok);
    1204. 

  1204. 	infoc_1.infot = 12;
    1205. 

  1205. 	dtgsna_("E", "A", sel, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &c__0, 
    1206. 

  1206. 		r1, r2, &c__1, &m, w, &c__1, iw, &info);
    1207. 

  1207. 	chkxer_("DTGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1208. 

  1208. 		infoc_1.ok);
    1209. 

  1209. 	infoc_1.infot = 15;
    1210. 

  1210. 	dtgsna_("E", "A", sel, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &c__1, 
    1211. 

  1211. 		r1, r2, &c__0, &m, w, &c__1, iw, &info);
    1212. 

  1212. 	chkxer_("DTGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1213. 

  1213. 		infoc_1.ok);
    1214. 

  1214. 	infoc_1.infot = 18;
    1215. 

  1215. 	dtgsna_("E", "A", sel, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &c__1, 
    1216. 

  1216. 		r1, r2, &c__1, &m, w, &c__0, iw, &info);
    1217. 

  1217. 	chkxer_("DTGSNA", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1218. 

  1218. 		infoc_1.ok);
    1219. 

  1219. 	nt += 9;
    1220. 

  1220. 

  1221. /*        DTGSYL */
    1222. 

  1222. 

  1223. 	s_copy(srnamc_1.srnamt, "DTGSYL", (ftnlen)6, (ftnlen)6);
    1224. 

  1224. 	infoc_1.infot = 1;
    1225. 

  1225. 	dtgsyl_("/", &c__0, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &
    1226. 

  1226. 		c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
    1227. 

  1227. 	chkxer_("DTGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1228. 

  1228. 		infoc_1.ok);
    1229. 

  1229. 	infoc_1.infot = 2;
    1230. 

  1230. 	dtgsyl_("N", &c_n1, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &
    1231. 

  1231. 		c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
    1232. 

  1232. 	chkxer_("DTGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1233. 

  1233. 		infoc_1.ok);
    1234. 

  1234. 	infoc_1.infot = 3;
    1235. 

  1235. 	dtgsyl_("N", &c__0, &c__0, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &
    1236. 

  1236. 		c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
    1237. 

  1237. 	chkxer_("DTGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1238. 

  1238. 		infoc_1.ok);
    1239. 

  1239. 	infoc_1.infot = 4;
    1240. 

  1240. 	dtgsyl_("N", &c__0, &c__1, &c__0, a, &c__1, b, &c__1, q, &c__1, u, &
    1241. 

  1241. 		c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
    1242. 

  1242. 	chkxer_("DTGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1243. 

  1243. 		infoc_1.ok);
    1244. 

  1244. 	infoc_1.infot = 6;
    1245. 

  1245. 	dtgsyl_("N", &c__0, &c__1, &c__1, a, &c__0, b, &c__1, q, &c__1, u, &
    1246. 

  1246. 		c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
    1247. 

  1247. 	chkxer_("DTGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1248. 

  1248. 		infoc_1.ok);
    1249. 

  1249. 	infoc_1.infot = 8;
    1250. 

  1250. 	dtgsyl_("N", &c__0, &c__1, &c__1, a, &c__1, b, &c__0, q, &c__1, u, &
    1251. 

  1251. 		c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
    1252. 

  1252. 	chkxer_("DTGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1253. 

  1253. 		infoc_1.ok);
    1254. 

  1254. 	infoc_1.infot = 10;
    1255. 

  1255. 	dtgsyl_("N", &c__0, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__0, u, &
    1256. 

  1256. 		c__1, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
    1257. 

  1257. 	chkxer_("DTGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1258. 

  1258. 		infoc_1.ok);
    1259. 

  1259. 	infoc_1.infot = 12;
    1260. 

  1260. 	dtgsyl_("N", &c__0, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &
    1261. 

  1261. 		c__0, v, &c__1, z__, &c__1, &scale, &dif, w, &c__1, iw, &info);
    1262. 

  1262. 	chkxer_("DTGSYL", &infoc_1.infot, &infoc_1.nout, &infoc_1.lerr, &
    1263. 

  1263. 		infoc_1.ok);
    1264. 

  1264. 	infoc_1.infot = 14;
    1265. 

  1265. 	dtgsyl_("N", &c__0, &c__1, &c__1, a, &c__1, b, &c__1, q, &c__1, u, &
    1266. 

  1266. 		c__1, v, &c__0, z__, &c__1, &scale, &dif, w, &c__…
    1267.