Lines Matching defs:NOUT
64 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA
105 READ( NIN, FMT = * )NOUT
106 OPEN( NOUT, FILE = SUMMRY, STATUS = 'NEW' )
107 NOUTC = NOUT
132 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
138 WRITE( NOUT, FMT = 9996 )NMAX
145 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
152 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
159 WRITE( NOUT, FMT = 9995 )
160 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
161 WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
162 WRITE( NOUT, FMT = 9992 )( BET( I ), I = 1, NBET )
164 WRITE( NOUT, FMT = * )
165 WRITE( NOUT, FMT = 9984 )
167 WRITE( NOUT, FMT = * )
168 WRITE( NOUT, FMT = 9999 )THRESH
169 WRITE( NOUT, FMT = * )
182 WRITE( NOUT, FMT = 9990 )SNAMET
200 WRITE( NOUT, FMT = 9998 )EPS
222 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
225 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
231 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
234 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
249 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
252 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
258 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
261 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
268 WRITE( NOUT, FMT = * )
271 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
276 CALL CCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
277 WRITE( NOUT, FMT = * )
286 140 CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
292 150 CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
298 160 CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
303 170 CALL CCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
309 180 CALL CCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
318 WRITE( NOUT, FMT = 9986 )
322 WRITE( NOUT, FMT = 9985 )
326 WRITE( NOUT, FMT = 9991 )
331 CLOSE ( NOUT )
366 SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
387 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
548 WRITE( NOUT, FMT = 9994 )
581 $ WRITE( NOUT, FMT = 9998 )I
595 $ ERR, FATAL, NOUT, .TRUE. )
620 WRITE( NOUT, FMT = 9999 )SNAME, NC
622 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
627 WRITE( NOUT, FMT = 9996 )SNAME
628 WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,
651 SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
672 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
823 WRITE( NOUT, FMT = 9994 )
855 $ WRITE( NOUT, FMT = 9998 )I
870 $ FATAL, NOUT, .TRUE. )
875 $ FATAL, NOUT, .TRUE. )
899 WRITE( NOUT, FMT = 9999 )SNAME, NC
901 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
906 WRITE( NOUT, FMT = 9996 )SNAME
907 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
930 SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
951 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA
1101 WRITE( NOUT, FMT = 9994 )
1132 $ WRITE( NOUT, FMT = 9998 )I
1149 $ FATAL, NOUT, .TRUE. )
1155 $ FATAL, NOUT, .TRUE. )
1176 $ FATAL, NOUT, .FALSE. )
1182 $ FATAL, NOUT, .FALSE. )
1209 WRITE( NOUT, FMT = 9999 )SNAME, NC
1211 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1216 WRITE( NOUT, FMT = 9996 )SNAME
1217 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
1240 SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1261 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1422 WRITE( NOUT, FMT = 9992 )
1460 $ WRITE( NOUT, FMT = 9998 )I
1491 $ FATAL, NOUT, .TRUE. )
1498 $ FATAL, NOUT, .TRUE. )
1528 WRITE( NOUT, FMT = 9999 )SNAME, NC
1530 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1536 $ WRITE( NOUT, FMT = 9995 )J
1539 WRITE( NOUT, FMT = 9996 )SNAME
1541 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, RALPHA,
1544 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1572 SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1593 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1767 WRITE( NOUT, FMT = 9992 )
1803 $ WRITE( NOUT, FMT = 9998 )I
1847 $ EPS, ERR, FATAL, NOUT,
1869 $ FATAL, NOUT, .TRUE. )
1901 WRITE( NOUT, FMT = 9999 )SNAME, NC
1903 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1909 $ WRITE( NOUT, FMT = 9995 )J
1912 WRITE( NOUT, FMT = 9996 )SNAME
1914 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1917 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1945 SUBROUTINE CCHKE( ISNUM, SRNAMT, NOUT )
1960 INTEGER ISNUM, NOUT
1986 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1989 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1992 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1995 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1998 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2001 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2004 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2007 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2010 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2013 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2016 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2019 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2022 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2025 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2028 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2031 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2034 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2037 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2040 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2043 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2046 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2049 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2052 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2055 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2058 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2061 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2064 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2067 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2070 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2073 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2076 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2079 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2082 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2085 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2088 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2091 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2094 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2097 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2100 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2103 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2106 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2109 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2112 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2115 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2118 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2121 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2124 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2127 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2130 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2133 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2136 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2139 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2142 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2145 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2148 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2151 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2154 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2157 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2160 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2163 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2167 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2170 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2173 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2176 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2179 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2182 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2185 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2188 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2191 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2194 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2197 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2200 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2203 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2206 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2209 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2212 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2215 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2218 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2221 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2224 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2227 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2230 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2234 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2237 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2240 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2243 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2246 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2249 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2252 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2255 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2258 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2261 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2264 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2267 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2270 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2273 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2276 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2279 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2282 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2285 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2288 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2291 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2294 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2297 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2301 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2304 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2307 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2310 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2313 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2316 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2319 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2322 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2325 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2328 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2331 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2334 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2337 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2340 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2343 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2346 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2349 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2352 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2355 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2358 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2361 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2364 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2367 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2370 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2373 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2376 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2379 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2382 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2385 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2388 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2391 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2394 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2397 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2400 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2403 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2406 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2409 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2412 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2415 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2418 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2421 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2424 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2427 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2430 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2433 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2436 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2439 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2442 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2445 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2448 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2451 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2454 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2458 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2461 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2464 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2467 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2470 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2473 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2476 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2479 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2482 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2485 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2488 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2491 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2494 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2497 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2500 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2503 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2506 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2509 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2512 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2515 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2518 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2521 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2524 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2527 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2530 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2533 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2536 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2539 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2542 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2545 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2548 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2551 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2554 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2557 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2560 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2563 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2566 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2569 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2572 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2575 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2578 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2581 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2584 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2587 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2590 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2593 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2596 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2599 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2602 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2605 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2608 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2611 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2615 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2618 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2621 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2624 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2627 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2630 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2633 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2636 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2639 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2642 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2645 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2648 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2651 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2654 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2657 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2660 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2663 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2666 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2670 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2673 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2676 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2679 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2682 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2685 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2688 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2691 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2694 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2697 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2700 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2703 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2706 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2709 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2712 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2715 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2718 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2721 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2725 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2728 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2731 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2734 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2737 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2740 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2743 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2746 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2749 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2752 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2755 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2758 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2761 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2764 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2767 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2770 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2773 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2776 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2779 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2782 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2785 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2788 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2792 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2795 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2798 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2801 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2804 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2807 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2810 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2813 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2816 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2819 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2822 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2825 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2828 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2831 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2834 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2837 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2840 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2843 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2846 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2849 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2852 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2855 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2858 WRITE( NOUT, FMT = 9999 )SRNAMT
2860 WRITE( NOUT, FMT = 9998 )SRNAMT
3001 $ NOUT, MV )
3021 INTEGER KK, LDA, LDB, LDC, LDCC, M, N, NOUT
3164 WRITE( NOUT, FMT = 9999 )
3167 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
3169 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
3173 $ WRITE( NOUT, FMT = 9997 )J
3354 SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
3367 INTEGER INFOT, NOUT
3372 WRITE( NOUT, FMT = 9999 )INFOT, SRNAMT
3407 INTEGER INFOT, NOUT
3411 COMMON /INFOC/INFOT, NOUT, OK, LERR
3417 WRITE( NOUT, FMT = 9999 )INFO, INFOT
3419 WRITE( NOUT, FMT = 9997 )INFO
3424 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT