Lines Matching refs:FMT
102 READ( NIN, FMT = * )SNAPS
103 READ( NIN, FMT = * )NTRA
109 READ( NIN, FMT = * )REWI
112 READ( NIN, FMT = * )SFATAL
114 READ( NIN, FMT = * )TSTERR
116 READ( NIN, FMT = * )LAYOUT
118 READ( NIN, FMT = * )THRESH
123 READ( NIN, FMT = * )NIDIM
125 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
128 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
131 WRITE( NOUT, FMT = 9996 )NMAX
136 READ( NIN, FMT = * )NALF
138 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
141 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
143 READ( NIN, FMT = * )NBET
145 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
148 READ( NIN, FMT = * )( BET( I ), I = 1, NBET )
152 WRITE( NOUT, FMT = 9995 )
153 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
154 WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
155 WRITE( NOUT, FMT = 9992 )( BET( I ), I = 1, NBET )
157 WRITE( NOUT, FMT = * )
158 WRITE( NOUT, FMT = 9984 )
160 WRITE( NOUT, FMT = * )
161 WRITE( NOUT, FMT = 9999 )THRESH
162 WRITE( NOUT, FMT = * )
169 WRITE( *, FMT = 10002 )
172 WRITE( *, FMT = 10001 )
175 WRITE( *, FMT = 10000 )
177 WRITE( *, FMT = * )
186 30 READ( NIN, FMT = 9988, END = 60 )SNAMET, LTESTT
191 WRITE( NOUT, FMT = 9990 )SNAMET
209 WRITE( NOUT, FMT = 9998 )EPS
234 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
243 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
261 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
270 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
277 WRITE( NOUT, FMT = * )
280 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
286 WRITE( NOUT, FMT = * )
368 WRITE( NOUT, FMT = 9986 )
372 WRITE( NOUT, FMT = 9985 )
376 WRITE( NOUT, FMT = 9991 )
596 WRITE( NOUT, FMT = 9994 )
629 $ WRITE( NOUT, FMT = 9998 )I
668 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
669 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
671 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
672 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
677 WRITE( NOUT, FMT = 9996 )SNAME
733 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
734 WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
905 WRITE( NOUT, FMT = 9994 )
937 $ WRITE( NOUT, FMT = 9998 )I
981 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
982 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
984 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
985 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
990 WRITE( NOUT, FMT = 9996 )SNAME
1043 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1044 WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1220 WRITE( NOUT, FMT = 9994 )
1251 $ WRITE( NOUT, FMT = 9998 )I
1328 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1329 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1331 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1332 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1337 WRITE( NOUT, FMT = 9996 )SNAME
1401 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1402 WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1556 WRITE( NOUT, FMT = 9993 )
1586 $ WRITE( NOUT, FMT = 9998 )I
1649 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1650 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1652 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1653 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1659 $ WRITE( NOUT, FMT = 9995 )J
1662 WRITE( NOUT, FMT = 9996 )SNAME
1717 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1718 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1895 WRITE( NOUT, FMT = 9993 )
1927 $ WRITE( NOUT, FMT = 9998 )I
2005 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2006 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2008 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2009 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2015 $ WRITE( NOUT, FMT = 9995 )J
2018 WRITE( NOUT, FMT = 9996 )SNAME
2074 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
2075 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2294 WRITE( NOUT, FMT = 9999 )
2297 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2299 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
2303 $ WRITE( NOUT, FMT = 9997 )J
