Lines Matching defs:NOUT
66 INTEGER NIN, NOUT
67 PARAMETER ( NIN = 5, NOUT = 6 )
121 NOUTC = NOUT
148 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
154 WRITE( NOUT, FMT = 9996 )NMAX
161 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
167 WRITE( NOUT, FMT = 9995 )
174 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
180 WRITE( NOUT, FMT = 9994 )INCMAX
187 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
194 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
201 WRITE( NOUT, FMT = 9993 )
202 WRITE( NOUT, FMT = 9992 )( IDIM( I ), I = 1, NIDIM )
203 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
204 WRITE( NOUT, FMT = 9990 )( INC( I ), I = 1, NINC )
205 WRITE( NOUT, FMT = 9989 )( ALF( I ), I = 1, NALF )
206 WRITE( NOUT, FMT = 9988 )( BET( I ), I = 1, NBET )
208 WRITE( NOUT, FMT = * )
209 WRITE( NOUT, FMT = 9980 )
211 WRITE( NOUT, FMT = * )
212 WRITE( NOUT, FMT = 9999 )THRESH
213 WRITE( NOUT, FMT = * )
241 WRITE( NOUT, FMT = 9986 )SNAMET
259 WRITE( NOUT, FMT = 9998 )EPS
278 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
281 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
286 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. )
289 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
296 WRITE( NOUT, FMT = * )
299 WRITE( NOUT, FMT = 9983 )SNAMES( ISNUM )
305 WRITE( NOUT, FMT = * )
316 CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
322 CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
330 CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
336 CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
345 CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
351 CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
359 CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
365 CALL SCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
373 CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
379 CALL SCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
387 CALL SCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
393 CALL SCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
403 WRITE( NOUT, FMT = 9982 )
407 WRITE( NOUT, FMT = 9981 )
411 WRITE( NOUT, FMT = 9987 )
416 CLOSE ( NOUT )
456 SUBROUTINE SCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
475 $ NOUT, NTRA, IORDER
671 WRITE( NOUT, FMT = 9993 )
722 $ WRITE( NOUT, FMT = 9998 )I
736 $ FATAL, NOUT, .TRUE. )
767 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
768 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
770 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
771 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
776 WRITE( NOUT, FMT = 9996 )SNAME
778 WRITE( NOUT, FMT = 9994 )NC, SNAME, CTRANS, M, N, ALPHA, LDA,
781 WRITE( NOUT, FMT = 9995 )NC, SNAME, CTRANS, M, N, KL, KU,
816 SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
835 $ NOUT, NTRA, IORDER
1021 WRITE( NOUT, FMT = 9992 )
1081 $ WRITE( NOUT, FMT = 9998 )I
1094 $ YY, EPS, ERR, FATAL, NOUT,
1123 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1124 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1126 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1127 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1132 WRITE( NOUT, FMT = 9996 )SNAME
1134 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, LDA,
1137 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, K, ALPHA, LDA,
1140 WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, N, ALPHA, INCX,
1176 SUBROUTINE SCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1193 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA,
1406 WRITE( NOUT, FMT = 9992 )
1456 $ WRITE( NOUT, FMT = 9998 )I
1470 $ XX, EPS, ERR, FATAL, NOUT,
1484 $ XX, EPS, ERR, FATAL, NOUT,
1511 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1512 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1514 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1515 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1520 WRITE( NOUT, FMT = 9996 )SNAME
1522 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1525 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1528 WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1563 SUBROUTINE SCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1581 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,
1711 WRITE( NOUT, FMT = 9993 )
1739 $ WRITE( NOUT, FMT = 9998 )I
1768 $ ERR, FATAL, NOUT, .TRUE. )
1792 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1793 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1795 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1796 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1801 WRITE( NOUT, FMT = 9995 )J
1804 WRITE( NOUT, FMT = 9996 )SNAME
1805 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1835 SUBROUTINE SCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1853 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,
1989 WRITE( NOUT, FMT = 9992 )
2017 $ WRITE( NOUT, FMT = 9998 )I
2049 $ AA( JA ), EPS, ERR, FATAL, NOUT,
2082 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2083 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2085 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2086 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2091 WRITE( NOUT, FMT = 9995 )J
2094 WRITE( NOUT, FMT = 9996 )SNAME
2096 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, INCX, LDA
2098 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, ALPHA, INCX
2131 SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
2149 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA,
2306 WRITE( NOUT, FMT = 9992 )
2336 $ WRITE( NOUT, FMT = 9998 )I
2379 $ NOUT, .TRUE. )
2413 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2414 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2416 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2417 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2422 WRITE( NOUT, FMT = 9995 )J
2425 WRITE( NOUT, FMT = 9996 )SNAME
2427 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, INCX,
2430 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, ALPHA, INCX, INCY
2640 $ INCY, YT, G, YY, EPS, ERR, FATAL, NOUT, MV )
2655 INTEGER INCX, INCY, M, N, NMAX, NOUT
2734 WRITE( NOUT, FMT = 9999 )
2737 WRITE( NOUT, FMT = 9998 )I, YT( I ),
2740 WRITE( NOUT, FMT = 9998 )I,