Lines Matching defs:NOUT
59 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA
98 READ( NIN, FMT = * )NOUT
99 OPEN( NOUT, FILE = SUMMRY, STATUS = 'NEW' )
100 NOUTC = NOUT
125 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
131 WRITE( NOUT, FMT = 9996 )NMAX
138 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
145 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
152 WRITE( NOUT, FMT = 9995 )
153 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
154 WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
155 WRITE( NOUT, FMT = 9992 )( BET( I ), I = 1, NBET )
157 WRITE( NOUT, FMT = * )
158 WRITE( NOUT, FMT = 9984 )
160 WRITE( NOUT, FMT = * )
161 WRITE( NOUT, FMT = 9999 )THRESH
162 WRITE( NOUT, FMT = * )
175 WRITE( NOUT, FMT = 9990 )SNAMET
193 WRITE( NOUT, FMT = 9998 )EPS
215 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
218 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
224 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
227 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
242 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
245 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
251 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
254 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
261 WRITE( NOUT, FMT = * )
264 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
269 CALL SCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
270 WRITE( NOUT, FMT = * )
278 140 CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
284 150 CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
290 160 CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
295 170 CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
301 180 CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
310 WRITE( NOUT, FMT = 9986 )
314 WRITE( NOUT, FMT = 9985 )
318 WRITE( NOUT, FMT = 9991 )
323 CLOSE ( NOUT )
356 SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
375 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
534 WRITE( NOUT, FMT = 9994 )
567 $ WRITE( NOUT, FMT = 9998 )I
581 $ ERR, FATAL, NOUT, .TRUE. )
606 WRITE( NOUT, FMT = 9999 )SNAME, NC
608 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
613 WRITE( NOUT, FMT = 9996 )SNAME
614 WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,
637 SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
656 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
800 WRITE( NOUT, FMT = 9994 )
832 $ WRITE( NOUT, FMT = 9998 )I
847 $ FATAL, NOUT, .TRUE. )
852 $ FATAL, NOUT, .TRUE. )
876 WRITE( NOUT, FMT = 9999 )SNAME, NC
878 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
883 WRITE( NOUT, FMT = 9996 )SNAME
884 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, M, N, ALPHA, LDA,
907 SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
926 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA
1074 WRITE( NOUT, FMT = 9994 )
1105 $ WRITE( NOUT, FMT = 9998 )I
1122 $ FATAL, NOUT, .TRUE. )
1128 $ FATAL, NOUT, .TRUE. )
1149 $ FATAL, NOUT, .FALSE. )
1155 $ FATAL, NOUT, .FALSE. )
1182 WRITE( NOUT, FMT = 9999 )SNAME, NC
1184 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1189 WRITE( NOUT, FMT = 9996 )SNAME
1190 WRITE( NOUT, FMT = 9995 )NC, SNAME, SIDE, UPLO, TRANSA, DIAG, M,
1212 SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1231 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1359 WRITE( NOUT, FMT = 9993 )
1389 $ WRITE( NOUT, FMT = 9998 )I
1415 $ FATAL, NOUT, .TRUE. )
1422 $ FATAL, NOUT, .TRUE. )
1452 WRITE( NOUT, FMT = 9999 )SNAME, NC
1454 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1460 $ WRITE( NOUT, FMT = 9995 )J
1463 WRITE( NOUT, FMT = 9996 )SNAME
1464 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1487 SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1506 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1655 WRITE( NOUT, FMT = 9993 )
1687 $ WRITE( NOUT, FMT = 9998 )I
1720 $ FATAL, NOUT, .TRUE. )
1732 $ EPS, ERR, FATAL, NOUT,
1765 WRITE( NOUT, FMT = 9999 )SNAME, NC
1767 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1773 $ WRITE( NOUT, FMT = 9995 )J
1776 WRITE( NOUT, FMT = 9996 )SNAME
1777 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, N, K, ALPHA,
1801 SUBROUTINE SCHKE( ISNUM, SRNAMT, NOUT )
1816 INTEGER ISNUM, NOUT
1840 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1843 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1846 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1849 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1852 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1855 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1858 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1861 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1864 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1867 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1870 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1873 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1876 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1879 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1882 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1885 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1888 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1891 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1894 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1897 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1900 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1903 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1906 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1909 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1912 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1915 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1918 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1921 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1925 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1928 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1931 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1934 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1937 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1940 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1943 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1946 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1949 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1952 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1955 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1958 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1961 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1964 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1967 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1970 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1973 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1976 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1979 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1982 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1985 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1988 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 )
2101 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2104 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2107 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2110 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2113 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2116 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2119 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2122 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2125 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2128 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2131 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2134 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2137 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2140 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2143 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2146 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2149 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2152 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2155 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2158 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2161 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2164 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 )
2210 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2213 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2216 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2219 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2222 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2225 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2228 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2231 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 )
2265 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2268 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2271 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2274 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2277 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2280 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2283 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2286 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2289 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2292 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2295 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2298 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 WRITE( NOUT, FMT = 9999 )SRNAMT
2333 WRITE( NOUT, FMT = 9998 )SRNAMT
2459 $ NOUT, MV )
2476 INTEGER KK, LDA, LDB, LDC, LDCC, M, N, NOUT
2556 WRITE( NOUT, FMT = 9999 )
2559 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2561 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
2565 $ WRITE( NOUT, FMT = 9997 )J
2738 SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2751 INTEGER INFOT, NOUT
2756 WRITE( NOUT, FMT = 9999 )INFOT, SRNAMT
2791 INTEGER INFOT, NOUT
2795 COMMON /INFOC/INFOT, NOUT, OK, LERR
2801 WRITE( NOUT, FMT = 9999 )INFO, INFOT
2803 WRITE( NOUT, FMT = 9997 )INFO
2808 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT