Lines Matching refs:FMT
129 READ( NIN, FMT = * )SNAPS
130 READ( NIN, FMT = * )NTRA
136 READ( NIN, FMT = * )REWI
139 READ( NIN, FMT = * )SFATAL
141 READ( NIN, FMT = * )TSTERR
143 READ( NIN, FMT = * )LAYOUT
145 READ( NIN, FMT = * )THRESH
150 READ( NIN, FMT = * )NIDIM
152 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
155 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
158 WRITE( NOUT, FMT = 9996 )NMAX
163 READ( NIN, FMT = * )NKB
165 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
168 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
171 WRITE( NOUT, FMT = 9995 )
176 READ( NIN, FMT = * )NINC
178 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
181 READ( NIN, FMT = * )( INC( I ), I = 1, NINC )
184 WRITE( NOUT, FMT = 9994 )INCMAX
189 READ( NIN, FMT = * )NALF
191 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
194 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
196 READ( NIN, FMT = * )NBET
198 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
201 READ( NIN, FMT = * )( BET( I ), I = 1, NBET )
205 WRITE( NOUT, FMT = 9993 )
206 WRITE( NOUT, FMT = 9992 )( IDIM( I ), I = 1, NIDIM )
207 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
208 WRITE( NOUT, FMT = 9990 )( INC( I ), I = 1, NINC )
209 WRITE( NOUT, FMT = 9989 )( ALF( I ), I = 1, NALF )
210 WRITE( NOUT, FMT = 9988 )( BET( I ), I = 1, NBET )
212 WRITE( NOUT, FMT = * )
213 WRITE( NOUT, FMT = 9980 )
215 WRITE( NOUT, FMT = * )
216 WRITE( NOUT, FMT = 9999 )THRESH
217 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 )
657 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
667 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
680 WRITE( NOUT, FMT = 9993 )
732 $ WRITE( NOUT, FMT = 9998 )I
778 WRITE( NOUT, FMT = 9999 )SNAME, NC
780 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
785 WRITE( NOUT, FMT = 9996 )SNAME
787 WRITE( NOUT, FMT = 9994 )NC, SNAME, CTRANS, M, N, ALPHA, LDA,
790 WRITE( NOUT, FMT = 9995 )NC, SNAME, CTRANS, M, N, KL, KU,
996 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1005 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1015 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1026 WRITE( NOUT, FMT = 9992 )
1086 $ WRITE( NOUT, FMT = 9998 )I
1128 WRITE( NOUT, FMT = 9999 )SNAME, NC
1130 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1135 WRITE( NOUT, FMT = 9996 )SNAME
1137 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, LDA, INCX,
1140 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, K, ALPHA, LDA,
1143 WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, N, ALPHA, INCX,
1353 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1361 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1369 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1379 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1387 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1395 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1407 WRITE( NOUT, FMT = 9992 )
1457 $ WRITE( NOUT, FMT = 9998 )I
1512 WRITE( NOUT, FMT = 9999 )SNAME, NC
1514 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1519 WRITE( NOUT, FMT = 9996 )SNAME
1521 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1524 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, CTRANS, CDIAG, N, K,
1527 WRITE( NOUT, FMT = 9995 )NC, SNAME, CUPLO, CTRANS, CDIAG, N,
1698 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1715 WRITE( NOUT, FMT = 9993 )
1743 $ WRITE( NOUT, FMT = 9998 )I
1798 WRITE( NOUT, FMT = 9999 )SNAME, NC
1800 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1805 WRITE( NOUT, FMT = 9995 )J
1808 WRITE( NOUT, FMT = 9996 )SNAME
1809 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1973 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
1981 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
1992 WRITE( NOUT, FMT = 9992 )
2020 $ WRITE( NOUT, FMT = 9998 )I
2085 WRITE( NOUT, FMT = 9999 )SNAME, NC
2087 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2092 WRITE( NOUT, FMT = 9995 )J
2095 WRITE( NOUT, FMT = 9996 )SNAME
2097 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, RALPHA, INCX, LDA
2099 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, RALPHA, INCX
2285 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, CUPLO, N,
2293 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, CUPLO, N,
2304 WRITE( NOUT, FMT = 9992 )
2334 $ WRITE( NOUT, FMT = 9998 )I
2411 WRITE( NOUT, FMT = 9999 )SNAME, NC
2413 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2418 WRITE( NOUT, FMT = 9995 )J
2421 WRITE( NOUT, FMT = 9996 )SNAME
2423 WRITE( NOUT, FMT = 9993 )NC, SNAME, CUPLO, N, ALPHA, INCX,
2426 WRITE( NOUT, FMT = 9994 )NC, SNAME, CUPLO, N, ALPHA, INCX, INCY
2561 WRITE( NOUT, FMT = 9999 )
2564 WRITE( NOUT, FMT = 9998 )I, YT( I ),
2567 WRITE( NOUT, FMT = 9998 )I,
