Lines Matching refs:FMT
107 READ( NIN, FMT = * )SNAPS
108 READ( NIN, FMT = * )NTRA
114 READ( NIN, FMT = * )REWI
117 READ( NIN, FMT = * )SFATAL
119 READ( NIN, FMT = * )TSTERR
121 READ( NIN, FMT = * )LAYOUT
123 READ( NIN, FMT = * )THRESH
128 READ( NIN, FMT = * )NIDIM
130 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
133 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
136 WRITE( NOUT, FMT = 9996 )NMAX
141 READ( NIN, FMT = * )NALF
143 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
146 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
148 READ( NIN, FMT = * )NBET
150 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
153 READ( NIN, FMT = * )( BET( I ), I = 1, NBET )
157 WRITE( NOUT, FMT = 9995 )
158 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
159 WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
160 WRITE( NOUT, FMT = 9992 )( BET( I ), I = 1, NBET )
162 WRITE( NOUT, FMT = * )
163 WRITE( NOUT, FMT = 9984 )
165 WRITE( NOUT, FMT = * )
166 WRITE( NOUT, FMT = 9999 )THRESH
167 WRITE( NOUT, FMT = * )
174 WRITE( *, FMT = 10002 )
177 WRITE( *, FMT = 10001 )
180 WRITE( *, FMT = 10000 )
182 WRITE( *, FMT = * )
191 30 READ( NIN, FMT = 9988, END = 60 )SNAMET, LTESTT
196 WRITE( NOUT, FMT = 9990 )SNAMET
214 WRITE( NOUT, FMT = 9998 )EPS
239 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
248 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
266 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
275 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
282 WRITE( NOUT, FMT = * )
285 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
291 WRITE( NOUT, FMT = * )
374 WRITE( NOUT, FMT = 9986 )
378 WRITE( NOUT, FMT = 9985 )
382 WRITE( NOUT, FMT = 9991 )
609 WRITE( NOUT, FMT = 9994 )
642 $ WRITE( NOUT, FMT = 9998 )I
681 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
682 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
684 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
685 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
690 WRITE( NOUT, FMT = 9996 )SNAME
747 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
748 WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
931 WRITE( NOUT, FMT = 9994 )
963 $ WRITE( NOUT, FMT = 9998 )I
1007 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1008 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1010 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1011 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1016 WRITE( NOUT, FMT = 9996 )SNAME
1069 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1070 WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1250 WRITE( NOUT, FMT = 9994 )
1281 $ WRITE( NOUT, FMT = 9998 )I
1358 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1359 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1361 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1362 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1367 WRITE( NOUT, FMT = 9996 )SNAME
1432 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1433 WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1625 WRITE( NOUT, FMT = 9992 )
1663 $ WRITE( NOUT, FMT = 9998 )I
1731 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1732 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1734 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1735 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1741 $ WRITE( NOUT, FMT = 9995 )J
1744 WRITE( NOUT, FMT = 9996 )SNAME
1808 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1809 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1842 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1843 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
2050 WRITE( NOUT, FMT = 9992 )
2086 $ WRITE( NOUT, FMT = 9998 )I
2184 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2185 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2187 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2188 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2194 $ WRITE( NOUT, FMT = 9995 )J
2197 WRITE( NOUT, FMT = 9996 )SNAME
2261 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
2262 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2296 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
2297 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2597 WRITE( NOUT, FMT = 9999 )
2600 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2602 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
2606 $ WRITE( NOUT, FMT = 9997 )J