Lines Matching refs:NOUT
67 INTEGER NIN, NOUT variable
68 PARAMETER ( NIN = 5, NOUT = 6 )
126 NOUTC = NOUT
153 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
159 WRITE( NOUT, FMT = 9996 )NMAX
166 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
172 WRITE( NOUT, FMT = 9995 )
179 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
185 WRITE( NOUT, FMT = 9994 )INCMAX
192 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
199 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
206 WRITE( NOUT, FMT = 9993 )
207 WRITE( NOUT, FMT = 9992 )( IDIM( I ), I = 1, NIDIM )
208 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
209 WRITE( NOUT, FMT = 9990 )( INC( I ), I = 1, NINC )
210 WRITE( NOUT, FMT = 9989 )( ALF( I ), I = 1, NALF )
211 WRITE( NOUT, FMT = 9988 )( BET( I ), I = 1, NBET )
213 WRITE( NOUT, FMT = * )
214 WRITE( NOUT, FMT = 9980 )
216 WRITE( NOUT, FMT = * )
217 WRITE( NOUT, FMT = 9999 )THRESH
218 WRITE( NOUT, FMT = * )
245 WRITE( NOUT, FMT = 9986 )SNAMET
263 WRITE( NOUT, FMT = 9998 )EPS
282 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
285 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
290 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
293 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
300 WRITE( NOUT, FMT = * )
303 WRITE( NOUT, FMT = 9983 )SNAMES( ISNUM )
309 WRITE( NOUT, FMT = * )
320 CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
326 CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
334 CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
340 CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
349 CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
355 CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
363 CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
369 CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
377 CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
383 CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
391 CALL ZCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
397 CALL ZCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
407 WRITE( NOUT, FMT = 9982 )
411 WRITE( NOUT, FMT = 9981 )
415 WRITE( NOUT, FMT = 9987 )
420 CLOSE ( NOUT )
462 SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
484 $ NOUT, NTRA, IORDER local
681 WRITE( NOUT, FMT = 9993 )
733 $ WRITE( NOUT, FMT = 9998 )I
747 $ FATAL, NOUT, .TRUE. )
779 WRITE( NOUT, FMT = 9999 )SNAME, NC
781 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
786 WRITE( NOUT, FMT = 9996 )SNAME
788 WRITE( NOUT, FMT = 9994 )NC, SNAME, CTRANS, M, N, ALPHA, LDA,
791 WRITE( NOUT, FMT = 9995 )NC, SNAME, CTRANS, M, N, KL, KU,
818 SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
840 $ NOUT, NTRA, IORDER local
1028 WRITE( NOUT, FMT = 9992 )
1088 $ WRITE( NOUT, FMT = 9998 )I
1101 $ YY, EPS, ERR, FATAL, NOUT,
1130 WRITE( NOUT, FMT = 9999 )SNAME, NC
1132 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1137 WRITE( NOUT, FMT = 9996 )SNAME
1139 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, LDA, INCX,
1142 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, K, ALPHA, LDA,
1145 WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, N, ALPHA, INCX,
1175 SUBROUTINE ZCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1196 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA, local
1410 WRITE( NOUT, FMT = 9992 )
1460 $ WRITE( NOUT, FMT = 9998 )I
1474 $ XX, EPS, ERR, FATAL, NOUT,
1488 $ XX, EPS, ERR, FATAL, NOUT,
1515 WRITE( NOUT, FMT = 9999 )SNAME, NC
1517 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1522 WRITE( NOUT, FMT = 9996 )SNAME
1524 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1527 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, CTRANS, CDIAG, N, K,
1530 WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1557 SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1579 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA, local
1719 WRITE( NOUT, FMT = 9993 )
1747 $ WRITE( NOUT, FMT = 9998 )I
1778 $ ERR, FATAL, NOUT, .TRUE. )
1802 WRITE( NOUT, FMT = 9999 )SNAME, NC
1804 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1809 WRITE( NOUT, FMT = 9995 )J
1812 WRITE( NOUT, FMT = 9996 )SNAME
1813 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1835 SUBROUTINE ZCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
1857 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA, local
1997 WRITE( NOUT, FMT = 9992 )
2025 $ WRITE( NOUT, FMT = 9998 )I
2057 $ AA( JA ), EPS, ERR, FATAL, NOUT,
2090 WRITE( NOUT, FMT = 9999 )SNAME, NC
2092 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2097 WRITE( NOUT, FMT = 9995 )J
2100 WRITE( NOUT, FMT = 9996 )SNAME
2102 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, RALPHA, INCX, LDA
2104 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, RALPHA, INCX
2129 SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, argument
2151 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA, local
2310 WRITE( NOUT, FMT = 9992 )
2340 $ WRITE( NOUT, FMT = 9998 )I
2383 $ NOUT, .TRUE. )
2417 WRITE( NOUT, FMT = 9999 )SNAME, NC
2419 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2424 WRITE( NOUT, FMT = 9995 )J
2427 WRITE( NOUT, FMT = 9996 )SNAME
2429 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, INCX,
2432 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, ALPHA, INCX, INCY
2458 $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV ) argument
2476 INTEGER INCX, INCY, M, N, NMAX, NOUT local
2567 WRITE( NOUT, FMT = 9999 )
2570 WRITE( NOUT, FMT = 9998 )I, YT( I ),
2573 WRITE( NOUT, FMT = 9998 )I,