Lines Matching refs:FMT
128 READ( NIN, FMT = * )SUMMRY
129 READ( NIN, FMT = * )NOUT
135 READ( NIN, FMT = * )SNAPS
136 READ( NIN, FMT = * )NTRA
142 READ( NIN, FMT = * )REWI
145 READ( NIN, FMT = * )SFATAL
147 READ( NIN, FMT = * )TSTERR
149 READ( NIN, FMT = * )THRESH
154 READ( NIN, FMT = * )NIDIM
156 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
159 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
162 WRITE( NOUT, FMT = 9996 )NMAX
167 READ( NIN, FMT = * )NKB
169 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
172 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
175 WRITE( NOUT, FMT = 9995 )
180 READ( NIN, FMT = * )NINC
182 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
185 READ( NIN, FMT = * )( INC( I ), I = 1, NINC )
188 WRITE( NOUT, FMT = 9994 )INCMAX
193 READ( NIN, FMT = * )NALF
195 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
198 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
200 READ( NIN, FMT = * )NBET
202 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
205 READ( NIN, FMT = * )( BET( I ), I = 1, NBET )
209 WRITE( NOUT, FMT = 9993 )
210 WRITE( NOUT, FMT = 9992 )( IDIM( I ), I = 1, NIDIM )
211 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
212 WRITE( NOUT, FMT = 9990 )( INC( I ), I = 1, NINC )
213 WRITE( NOUT, FMT = 9989 )( ALF( I ), I = 1, NALF )
214 WRITE( NOUT, FMT = 9988 )( BET( I ), I = 1, NBET )
216 WRITE( NOUT, FMT = * )
217 WRITE( NOUT, FMT = 9980 )
219 WRITE( NOUT, FMT = * )
220 WRITE( NOUT, FMT = 9999 )THRESH
221 WRITE( NOUT, FMT = * )
229 50 READ( NIN, FMT = 9984, END = 80 )SNAMET, LTESTT
234 WRITE( NOUT, FMT = 9986 )SNAMET
252 WRITE( NOUT, FMT = 9998 )EPS
274 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
282 WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
289 WRITE( NOUT, FMT = * )
292 WRITE( NOUT, FMT = 9983 )SNAMES( ISNUM )
298 WRITE( NOUT, FMT = * )
347 WRITE( NOUT, FMT = 9982 )
351 WRITE( NOUT, FMT = 9981 )
355 WRITE( NOUT, FMT = 9987 )
587 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
597 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
610 WRITE( NOUT, FMT = 9993 )
661 $ WRITE( NOUT, FMT = 9998 )I
706 WRITE( NOUT, FMT = 9999 )SNAME, NC
708 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
713 WRITE( NOUT, FMT = 9996 )SNAME
715 WRITE( NOUT, FMT = 9994 )NC, SNAME, TRANS, M, N, ALPHA, LDA,
718 WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANS, M, N, KL, KU,
919 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
927 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
936 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
947 WRITE( NOUT, FMT = 9992 )
1007 $ WRITE( NOUT, FMT = 9998 )I
1049 WRITE( NOUT, FMT = 9999 )SNAME, NC
1051 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1056 WRITE( NOUT, FMT = 9996 )SNAME
1058 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, LDA, INCX,
1061 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, K, ALPHA, LDA,
1064 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, N, ALPHA, INCX,
1256 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1264 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1272 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1282 $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
1290 $ WRITE( NTRA, FMT = 9994 )NC, SNAME,
1298 $ WRITE( NTRA, FMT = 9995 )NC, SNAME,
1310 WRITE( NOUT, FMT = 9992 )
1360 $ WRITE( NOUT, FMT = 9998 )I
1415 WRITE( NOUT, FMT = 9999 )SNAME, NC
1417 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1422 WRITE( NOUT, FMT = 9996 )SNAME
1424 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, TRANS, DIAG, N, LDA,
1427 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, TRANS, DIAG, N, K,
1430 WRITE( NOUT, FMT = 9995 )NC, SNAME, UPLO, TRANS, DIAG, N, INCX
1600 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, M, N,
1617 WRITE( NOUT, FMT = 9993 )
1645 $ WRITE( NOUT, FMT = 9998 )I
1700 WRITE( NOUT, FMT = 9999 )SNAME, NC
1702 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1707 WRITE( NOUT, FMT = 9995 )J
1710 WRITE( NOUT, FMT = 9996 )SNAME
1711 WRITE( NOUT, FMT = 9994 )NC, SNAME, M, N, ALPHA, INCX, INCY, LDA
1870 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
1877 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
1887 WRITE( NOUT, FMT = 9992 )
1915 $ WRITE( NOUT, FMT = 9998 )I
1980 WRITE( NOUT, FMT = 9999 )SNAME, NC
1982 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1987 WRITE( NOUT, FMT = 9995 )J
1990 WRITE( NOUT, FMT = 9996 )SNAME
1992 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, RALPHA, INCX, LDA
1994 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, RALPHA, INCX
2174 $ WRITE( NTRA, FMT = 9993 )NC, SNAME, UPLO, N,
2182 $ WRITE( NTRA, FMT = 9994 )NC, SNAME, UPLO, N,
2193 WRITE( NOUT, FMT = 9992 )
2223 $ WRITE( NOUT, FMT = 9998 )I
2300 WRITE( NOUT, FMT = 9999 )SNAME, NC
2302 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2307 WRITE( NOUT, FMT = 9995 )J
2310 WRITE( NOUT, FMT = 9996 )SNAME
2312 WRITE( NOUT, FMT = 9993 )NC, SNAME, UPLO, N, ALPHA, INCX,
2315 WRITE( NOUT, FMT = 9994 )NC, SNAME, UPLO, N, ALPHA, INCX, INCY
2672 WRITE( NOUT, FMT = 9999 )SRNAMT
2674 WRITE( NOUT, FMT = 9998 )SRNAMT
2988 WRITE( NOUT, FMT = 9999 )
2991 WRITE( NOUT, FMT = 9998 )I, YT( I ),
2994 WRITE( NOUT, FMT = 9998 )I,
3184 WRITE( NOUT, FMT = 9999 )INFOT, SRNAMT
3227 WRITE( NOUT, FMT = 9999 )INFO, INFOT
3229 WRITE( NOUT, FMT = 9997 )INFO
3234 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT