Lines Matching refs:FMT
168 READ( NIN, FMT = * )SUMMRY
169 READ( NIN, FMT = * )NOUT
175 READ( NIN, FMT = * )SNAPS
176 READ( NIN, FMT = * )NTRA
182 READ( NIN, FMT = * )REWI
185 READ( NIN, FMT = * )SFATAL
187 READ( NIN, FMT = * )TSTERR
189 READ( NIN, FMT = * )THRESH
194 READ( NIN, FMT = * )NIDIM
196 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
199 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
202 WRITE( NOUT, FMT = 9996 )NMAX
207 READ( NIN, FMT = * )NKB
209 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
212 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
215 WRITE( NOUT, FMT = 9995 )
220 READ( NIN, FMT = * )NINC
222 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
225 READ( NIN, FMT = * )( INC( I ), I = 1, NINC )
228 WRITE( NOUT, FMT = 9994 )INCMAX
233 READ( NIN, FMT = * )NALF
235 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
238 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
240 READ( NIN, FMT = * )NBET
242 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
245 READ( NIN, FMT = * )( BET( I ), I = 1, NBET )
249 WRITE( NOUT, FMT = 9993 )
250 WRITE( NOUT, FMT = 9992 )( IDIM( I ), I = 1, NIDIM )
251 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
252 WRITE( NOUT, FMT = 9990 )( INC( I ), I = 1, NINC )
253 WRITE( NOUT, FMT = 9989 )( ALF( I ), I = 1, NALF )
254 WRITE( NOUT, FMT = 9988 )( BET( I ), I = 1, NBET )
256 WRITE( NOUT, FMT = * )
257 WRITE( NOUT, FMT = 9980 )
259 WRITE( NOUT, FMT = * )
260 WRITE( NOUT, FMT = 9999 )THRESH
261 WRITE( NOUT, FMT = * )
269 50 READ( NIN, FMT = 9984, END = 80 )SNAMET, LTESTT
274 WRITE( NOUT, FMT = 9986 )SNAMET
285 WRITE( NOUT, FMT = 9998 )EPS
307 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
315 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
322 WRITE( NOUT, FMT = * )
325 WRITE( NOUT, FMT = 9983 )SNAMES( ISNUM )
331 WRITE( NOUT, FMT = * )
380 WRITE( NOUT, FMT = 9982 )
384 WRITE( NOUT, FMT = 9981 )
388 WRITE( NOUT, FMT = 9987 )
614 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
624 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
637 WRITE( NOUT, FMT = 9993 )
688 $ WRITE( NOUT, FMT = 9998 )I
733 WRITE( NOUT, FMT = 9999 )SNAME, NC
735 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
740 WRITE( NOUT, FMT = 9996 )SNAME
742 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
745 WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANS, M, N, KL, KU,
941 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
949 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
958 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
969 WRITE( NOUT, FMT = 9992 )
1029 $ WRITE( NOUT, FMT = 9998 )I
1071 WRITE( NOUT, FMT = 9999 )SNAME, NC
1073 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1078 WRITE( NOUT, FMT = 9996 )SNAME
1080 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1083 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1086 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1271 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1279 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1287 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1297 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1305 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1313 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1325 WRITE( NOUT, FMT = 9992 )
1375 $ WRITE( NOUT, FMT = 9998 )I
1430 WRITE( NOUT, FMT = 9999 )SNAME, NC
1432 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1437 WRITE( NOUT, FMT = 9996 )SNAME
1439 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1442 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1445 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
1608 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1618 WRITE( NOUT, FMT = 9993 )
1646 $ WRITE( NOUT, FMT = 9998 )I
1699 WRITE( NOUT, FMT = 9999 )SNAME, NC
1701 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1706 WRITE( NOUT, FMT = 9995 )J
1709 WRITE( NOUT, FMT = 9996 )SNAME
1710 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1861 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1868 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1878 WRITE( NOUT, FMT = 9992 )
1906 $ WRITE( NOUT, FMT = 9998 )I
1971 WRITE( NOUT, FMT = 9999 )SNAME, NC
1973 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1978 WRITE( NOUT, FMT = 9995 )J
1981 WRITE( NOUT, FMT = 9996 )SNAME
1983 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX, LDA
1985 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX
2159 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2167 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2178 WRITE( NOUT, FMT = 9992 )
2208 $ WRITE( NOUT, FMT = 9998 )I
2285 WRITE( NOUT, FMT = 9999 )SNAME, NC
2287 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2292 WRITE( NOUT, FMT = 9995 )J
2295 WRITE( NOUT, FMT = 9996 )SNAME
2297 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2300 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2638 WRITE( NOUT, FMT = 9999 )SRNAMT
2640 WRITE( NOUT, FMT = 9998 )SRNAMT
2922 WRITE( NOUT, FMT = 9999 )
2925 WRITE( NOUT, FMT = 9998 )I, YT( I ),
2928 WRITE( NOUT, FMT = 9998 )I,
3111 WRITE( NOUT, FMT = 9999 )INFOT, SRNAMT
3154 WRITE( NOUT, FMT = 9999 )INFO, INFOT
3156 WRITE( NOUT, FMT = 9997 )INFO
3161 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT