Lines Matching refs:FMT
100 READ( NIN, FMT = * )SNAPS
101 READ( NIN, FMT = * )NTRA
108 READ( NIN, FMT = * )REWI
111 READ( NIN, FMT = * )SFATAL
113 READ( NIN, FMT = * )TSTERR
115 READ( NIN, FMT = * )LAYOUT
117 READ( NIN, FMT = * )THRESH
122 READ( NIN, FMT = * )NIDIM
124 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
127 READ( NIN, FMT = * )( IDIM( I ), I = 1, NIDIM )
130 WRITE( NOUT, FMT = 9996 )NMAX
135 READ( NIN, FMT = * )NALF
137 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
140 READ( NIN, FMT = * )( ALF( I ), I = 1, NALF )
142 READ( NIN, FMT = * )NBET
144 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
147 READ( NIN, FMT = * )( BET( I ), I = 1, NBET )
151 WRITE( NOUT, FMT = 9995 )
152 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
153 WRITE( NOUT, FMT = 9993 )( ALF( I ), I = 1, NALF )
154 WRITE( NOUT, FMT = 9992 )( BET( I ), I = 1, NBET )
156 WRITE( NOUT, FMT = * )
157 WRITE( NOUT, FMT = 9984 )
159 WRITE( NOUT, FMT = * )
160 WRITE( NOUT, FMT = 9999 )THRESH
161 WRITE( NOUT, FMT = * )
168 WRITE( *, FMT = 10002 )
171 WRITE( *, FMT = 10001 )
174 WRITE( *, FMT = 10000 )
176 WRITE( *, FMT = * )
185 30 READ( NIN, FMT = 9988, END = 60 )SNAMET, LTESTT
190 WRITE( NOUT, FMT = 9990 )SNAMET
208 WRITE( NOUT, FMT = 9998 )EPS
233 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
242 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
260 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
269 WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
276 WRITE( NOUT, FMT = * )
279 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
285 WRITE( NOUT, FMT = * )
367 WRITE( NOUT, FMT = 9986 )
371 WRITE( NOUT, FMT = 9985 )
375 WRITE( NOUT, FMT = 9991 )
596 WRITE( NOUT, FMT = 9994 )
629 $ WRITE( NOUT, FMT = 9998 )I+1
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
736 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
737 WRITE(NOUT, FMT = 9994)M, N, K, ALPHA, LDA, LDB, BETA, LDC
909 FMT = 9994 )
941 $ WRITE( NOUT, FMT = 9998 )I+1
985 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
986 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
988 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
989 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
994 WRITE( NOUT, FMT = 9996 )SNAME
1047 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1048 WRITE(NOUT, FMT = 9994)M, N, ALPHA, LDA, LDB, BETA, LDC
1224 WRITE( NOUT, FMT = 9994 )
1255 $ WRITE( NOUT, FMT = 9998 )I+1
1332 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1333 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1335 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1336 FMT = 10003 )SNAME, NC, ERRMAX
1341 WRITE( NOUT, FMT = 9996 )SNAME
1405 WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
1406 WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
1561 WRITE( NOUT, FMT = 9993 )
1591 $ WRITE( NOUT, FMT = 9998 )I+1
1654 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
1655 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1657 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
1658 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
1664 $ WRITE( NOUT, FMT = 9995 )J
1667 WRITE( NOUT, FMT = 9996 )SNAME
1722 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
1723 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
1899 WRITE( NOUT, FMT = 9993 )
1931 $ WRITE( NOUT, FMT = 9998 )I+1
2009 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10000 )SNAME, NC
2010 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2012 IF ( IORDER.EQ.0) WRITE( NOUT, FMT = 10002 )SNAME, NC, ERRMAX
2013 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10003 )SNAME, NC, ERRMAX
2019 $ WRITE( NOUT, FMT = 9995 )J
2022 WRITE( NOUT, FMT = 9996 )SNAME
2078 WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
2079 WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
2298 WRITE( NOUT, FMT = 9999 )
2301 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2303 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
2307 $ WRITE( NOUT, FMT = 9997 )J
