Lines Matching refs:FMT
130 READ( NIN, FMT = * )SNAPS
131 READ( NIN, FMT = * )NTRA
137 READ( NIN, FMT = * )REWI
140 READ( NIN, FMT = * )SFATAL
142 READ( NIN, FMT = * )TSTERR
144 READ( NIN, FMT = * )LAYOUT
146 READ( NIN, FMT = * )THRESH
151 READ( NIN, FMT = * )NIDIM
153 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
156 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
159 WRITE( NOUT, FMT = 9996 )NMAX
164 READ( NIN, FMT = * )NKB
166 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
169 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
172 WRITE( NOUT, FMT = 9995 )
177 READ( NIN, FMT = * )NINC
179 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
182 READ( NIN, FMT = * )( INC( I ), I = 1, NINC )
185 WRITE( NOUT, FMT = 9994 )INCMAX
190 READ( NIN, FMT = * )NALF
192 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
195 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
197 READ( NIN, FMT = * )NBET
199 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
202 READ( NIN, FMT = * )( BET( I ), I = 1, NBET )
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 = * )
224 WRITE( *, FMT = 10002 )
227 WRITE( *, FMT = 10001 )
230 WRITE( *, FMT = 10000 )
232 WRITE( *, FMT = * )
240 50 READ( NIN, FMT = 9984, END = 80 )SNAMET, LTESTT
245 WRITE( NOUT, FMT = 9986 )SNAMET
263 WRITE( NOUT, FMT = 9998 )EPS
285 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
293 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
300 WRITE( NOUT, FMT = * )
303 WRITE( NOUT, FMT = 9983 )SNAMES( ISNUM )
309 WRITE( NOUT, FMT = * )
407 WRITE( NOUT, FMT = 9982 )
411 WRITE( NOUT, FMT = 9981 )
415 WRITE( NOUT, FMT = 9987 )
658 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
668 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
681 WRITE( NOUT, FMT = 9993 )
733 $ WRITE( NOUT, FMT = 9998 )I
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,
998 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1007 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1017 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1028 WRITE( NOUT, FMT = 9992 )
1088 $ WRITE( NOUT, FMT = 9998 )I
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,
1356 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1364 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1372 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1382 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1390 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1398 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1410 WRITE( NOUT, FMT = 9992 )
1460 $ WRITE( NOUT, FMT = 9998 )I
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,
1702 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1719 WRITE( NOUT, FMT = 9993 )
1747 $ WRITE( NOUT, FMT = 9998 )I
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
1978 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
1986 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
1997 WRITE( NOUT, FMT = 9992 )
2025 $ WRITE( NOUT, FMT = 9998 )I
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
2291 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
2299 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
2310 WRITE( NOUT, FMT = 9992 )
2340 $ WRITE( NOUT, FMT = 9998 )I
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
2567 WRITE( NOUT, FMT = 9999 )
2570 WRITE( NOUT, FMT = 9998 )I, YT( I ),
2573 WRITE( NOUT, FMT = 9998 )I,
