Lines Matching defs:NOUT
46 INTEGER NIN, NOUT
47 PARAMETER ( NIN = 5, NOUT = 6 )
99 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 = * )
191 WRITE( NOUT, FMT = 9990 )SNAMET
209 WRITE( NOUT, FMT = 9998 )EPS
231 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
234 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
240 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
243 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
258 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
261 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
267 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
270 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
277 WRITE( NOUT, FMT = * )
280 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
286 WRITE( NOUT, FMT = * )
295 CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
301 CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
309 CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315 CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
323 CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
329 CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
337 CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
343 CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
351 CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
357 CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
368 WRITE( NOUT, FMT = 9986 )
372 WRITE( NOUT, FMT = 9985 )
376 WRITE( NOUT, FMT = 9991 )
381 CLOSE ( NOUT )
417 SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
436 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
596 WRITE( NOUT, FMT = 9994 )
629 $ WRITE( NOUT, FMT = 9998 )I
643 $ ERR, FATAL, NOUT, .TRUE. )
668 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
669 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
671 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
672 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
677 WRITE( NOUT, FMT = 9996 )SNAME
678 CALL DPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB,
706 SUBROUTINE DPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, M, N,
708 INTEGER NOUT, NC, IORDER, M, N, K, LDA, LDB, LDC
733 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
734 WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
741 SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
760 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
905 WRITE( NOUT, FMT = 9994 )
937 $ WRITE( NOUT, FMT = 9998 )I
952 $ FATAL, NOUT, .TRUE. )
957 $ FATAL, NOUT, .TRUE. )
981 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
982 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
984 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
985 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
990 WRITE( NOUT, FMT = 9996 )SNAME
991 CALL DPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
1020 SUBROUTINE DPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N,
1022 INTEGER NOUT, NC, IORDER, M, N, LDA, LDB, LDC
1043 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1044 WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1051 SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1070 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA, IORDER
1220 WRITE( NOUT, FMT = 9994 )
1251 $ WRITE( NOUT, FMT = 9998 )I
1268 $ FATAL, NOUT, .TRUE. )
1274 $ FATAL, NOUT, .TRUE. )
1295 $ FATAL, NOUT, .FALSE. )
1301 $ FATAL, NOUT, .FALSE. )
1328 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1329 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1331 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1332 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1337 WRITE( NOUT, FMT = 9996 )SNAME
1366 SUBROUTINE DPRCN3(NOUT, NC, SNAME, IORDER, SIDE, UPLO, TRANSA,
1368 INTEGER NOUT, NC, IORDER, M, N, LDA, LDB
1401 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1402 WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1409 SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1428 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
1556 WRITE( NOUT, FMT = 9993 )
1586 $ WRITE( NOUT, FMT = 9998 )I
1612 $ FATAL, NOUT, .TRUE. )
1619 $ FATAL, NOUT, .TRUE. )
1649 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1650 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1652 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1653 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1659 $ WRITE( NOUT, FMT = 9995 )J
1662 WRITE( NOUT, FMT = 9996 )SNAME
1663 CALL DPRCN4( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
1692 SUBROUTINE DPRCN4(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
1694 INTEGER NOUT, NC, IORDER, N, K, LDA, LDC
1717 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1718 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1725 SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
1745 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
1895 WRITE( NOUT, FMT = 9993 )
1927 $ WRITE( NOUT, FMT = 9998 )I
1960 $ FATAL, NOUT, .TRUE. )
1972 $ EPS, ERR, FATAL, NOUT,
2005 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2006 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2008 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2009 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2015 $ WRITE( NOUT, FMT = 9995 )J
2018 WRITE( NOUT, FMT = 9996 )SNAME
2019 CALL DPRCN5( NOUT, NC, SNAME, IORDER, UPLO, TRANS, N, K, ALPHA,
2049 SUBROUTINE DPRCN5(NOUT, NC, SNAME, IORDER, UPLO, TRANSA,
2051 INTEGER NOUT, NC, IORDER, N, K, LDA, LDB, LDC
2074 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
2075 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2197 $ NOUT, MV )
2214 INTEGER KK, LDA, LDB, LDC, LDCC, M, N, NOUT
2294 WRITE( NOUT, FMT = 9999 )
2297 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2299 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
2303 $ WRITE( NOUT, FMT = 9997 )J