Lines Matching refs:FMT
108 READ( NIN, FMT = * )SNAPS
109 READ( NIN, FMT = * )NTRA
115 READ( NIN, FMT = * )REWI
118 READ( NIN, FMT = * )SFATAL
120 READ( NIN, FMT = * )TSTERR
122 READ( NIN, FMT = * )LAYOUT
124 READ( NIN, FMT = * )THRESH
129 READ( NIN, FMT = * )NIDIM
131 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
134 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
137 WRITE( NOUT, FMT = 9996 )NMAX
142 READ( NIN, FMT = * )NALF
144 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
147 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
149 READ( NIN, FMT = * )NBET
151 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
154 READ( NIN, FMT = * )( BET( I ), I = 1, NBET )
158 WRITE( NOUT, FMT = 9995 )
159 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
160 WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
161 WRITE( NOUT, FMT = 9992 )( BET( I ), I = 1, NBET )
163 WRITE( NOUT, FMT = * )
164 WRITE( NOUT, FMT = 9984 )
166 WRITE( NOUT, FMT = * )
167 WRITE( NOUT, FMT = 9999 )THRESH
168 WRITE( NOUT, FMT = * )
175 WRITE( *, FMT = 10002 )
178 WRITE( *, FMT = 10001 )
181 WRITE( *, FMT = 10000 )
183 WRITE( *, FMT = * )
192 30 READ( NIN, FMT = 9988, END = 60 )SNAMET, LTESTT
197 WRITE( NOUT, FMT = 9990 )SNAMET
215 WRITE( NOUT, FMT = 9998 )EPS
240 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
249 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
267 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
276 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
283 WRITE( NOUT, FMT = * )
286 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
292 WRITE( NOUT, FMT = * )
375 WRITE( NOUT, FMT = 9986 )
379 WRITE( NOUT, FMT = 9985 )
383 WRITE( NOUT, FMT = 9991 )
610 WRITE( NOUT, FMT = 9994 )
643 $ WRITE( NOUT, FMT = 9998 )I
682 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
683 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
685 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
686 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
691 WRITE( NOUT, FMT = 9996 )SNAME
748 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
749 WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
932 WRITE( NOUT, FMT = 9994 )
964 $ WRITE( NOUT, FMT = 9998 )I
1008 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1009 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1011 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1012 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1017 WRITE( NOUT, FMT = 9996 )SNAME
1070 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1071 WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1251 WRITE( NOUT, FMT = 9994 )
1282 $ WRITE( NOUT, FMT = 9998 )I
1359 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1360 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1362 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1363 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1368 WRITE( NOUT, FMT = 9996 )SNAME
1433 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1434 WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1626 WRITE( NOUT, FMT = 9992 )
1664 $ WRITE( NOUT, FMT = 9998 )I
1732 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1733 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1735 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1736 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1742 $ WRITE( NOUT, FMT = 9995 )J
1745 WRITE( NOUT, FMT = 9996 )SNAME
1809 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1810 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1843 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1844 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
2051 WRITE( NOUT, FMT = 9992 )
2087 $ WRITE( NOUT, FMT = 9998 )I
2185 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2186 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2188 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2189 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2195 $ WRITE( NOUT, FMT = 9995 )J
2198 WRITE( NOUT, FMT = 9996 )SNAME
2262 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
2263 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2297 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
2298 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2601 WRITE( NOUT, FMT = 9999 )
2604 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2606 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
2610 $ WRITE( NOUT, FMT = 9997 )J