Lines Matching refs:FMT
125 READ( NIN, FMT = * )SNAPS
126 READ( NIN, FMT = * )NTRA
132 READ( NIN, FMT = * )REWI
135 READ( NIN, FMT = * )SFATAL
137 READ( NIN, FMT = * )TSTERR
139 READ( NIN, FMT = * )LAYOUT
141 READ( NIN, FMT = * )THRESH
146 READ( NIN, FMT = * )NIDIM
148 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
151 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
154 WRITE( NOUT, FMT = 9996 )NMAX
159 READ( NIN, FMT = * )NKB
161 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
164 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
167 WRITE( NOUT, FMT = 9995 )
172 READ( NIN, FMT = * )NINC
174 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
177 READ( NIN, FMT = * )( INC( I ), I = 1, NINC )
180 WRITE( NOUT, FMT = 9994 )INCMAX
185 READ( NIN, FMT = * )NALF
187 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
190 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
192 READ( NIN, FMT = * )NBET
194 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
197 READ( NIN, FMT = * )( BET( I ), I = 1, NBET )
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 = * )
220 WRITE( *, FMT = 10002 )
223 WRITE( *, FMT = 10001 )
226 WRITE( *, FMT = 10000 )
228 WRITE( *, FMT = * )
236 50 READ( NIN, FMT = 9984, END = 80 )SNAMET, LTESTT
241 WRITE( NOUT, FMT = 9986 )SNAMET
259 WRITE( NOUT, FMT = 9998 )EPS
281 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
289 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
296 WRITE( NOUT, FMT = * )
299 WRITE( NOUT, FMT = 9983 )SNAMES( ISNUM )
305 WRITE( NOUT, FMT = * )
403 WRITE( NOUT, FMT = 9982 )
407 WRITE( NOUT, FMT = 9981 )
411 WRITE( NOUT, FMT = 9987 )
648 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
658 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
671 WRITE( NOUT, FMT = 9993 )
722 $ WRITE( NOUT, FMT = 9998 )I
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,
992 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1000 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1010 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1021 WRITE( NOUT, FMT = 9992 )
1081 $ WRITE( NOUT, FMT = 9998 )I
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, INCX,
1137 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, K, ALPHA, LDA,
1140 WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, N, ALPHA, INCX,
1352 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1360 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1368 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1378 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1386 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1394 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1406 WRITE( NOUT, FMT = 9992 )
1456 $ WRITE( NOUT, FMT = 9998 )I
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, K,
1528 WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1701 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1711 WRITE( NOUT, FMT = 9993 )
1739 $ WRITE( NOUT, FMT = 9998 )I
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
1971 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
1979 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
1989 WRITE( NOUT, FMT = 9992 )
2017 $ WRITE( NOUT, FMT = 9998 )I
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
2287 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
2295 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
2306 WRITE( NOUT, FMT = 9992 )
2336 $ WRITE( NOUT, FMT = 9998 )I
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
2734 WRITE( NOUT, FMT = 9999 )
2737 WRITE( NOUT, FMT = 9998 )I, YT( I ),
2740 WRITE( NOUT, FMT = 9998 )I,