| /external/eigen/blas/testing/ |
| D | cblat3.f | 64 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
105 READ( NIN, FMT = * )NOUT
106 OPEN( NOUT, FILE = SUMMRY, STATUS = 'NEW' )
107 NOUTC = NOUT
132 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
138 WRITE( NOUT, FMT = 9996 )NMAX
145 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
152 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
159 WRITE( NOUT, FMT = 9995 )
160 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
[all …]
|
| D | zblat3.f | 65 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
106 READ( NIN, FMT = * )NOUT
107 OPEN( NOUT, FILE = SUMMRY, STATUS = 'NEW' )
108 NOUTC = NOUT
133 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
139 WRITE( NOUT, FMT = 9996 )NMAX
146 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
153 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
160 WRITE( NOUT, FMT = 9995 )
161 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
[all …]
|
| D | sblat3.f | 59 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
98 READ( NIN, FMT = * )NOUT
99 OPEN( NOUT, FILE = SUMMRY, STATUS = 'NEW' )
100 NOUTC = NOUT
125 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
131 WRITE( NOUT, FMT = 9996 )NMAX
138 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
145 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
152 WRITE( NOUT, FMT = 9995 )
153 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
[all …]
|
| D | dblat3.f | 59 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
98 READ( NIN, FMT = * )NOUT
99 OPEN( NOUT, FILE = SUMMRY, STATUS = 'NEW' )
100 NOUTC = NOUT
125 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
131 WRITE( NOUT, FMT = 9996 )NMAX
138 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
145 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
152 WRITE( NOUT, FMT = 9995 )
153 WRITE( NOUT, FMT = 9994 )( IDIM( I ), I = 1, NIDIM )
[all …]
|
| D | zblat2.f | 85 $ NOUT, NTRA variable
129 READ( NIN, FMT = * )NOUT
130 OPEN( NOUT, FILE = SUMMRY, STATUS = 'NEW' )
131 NOUTC = NOUT
156 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
162 WRITE( NOUT, FMT = 9996 )NMAX
169 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
175 WRITE( NOUT, FMT = 9995 )
182 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
188 WRITE( NOUT, FMT = 9994 )INCMAX
[all …]
|
| D | cblat2.f | 84 $ NOUT, NTRA variable
128 READ( NIN, FMT = * )NOUT
129 OPEN( NOUT, FILE = SUMMRY, STATUS = 'NEW' )
130 NOUTC = NOUT
155 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
161 WRITE( NOUT, FMT = 9996 )NMAX
168 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
174 WRITE( NOUT, FMT = 9995 )
181 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
187 WRITE( NOUT, FMT = 9994 )INCMAX
[all …]
|
| D | dblat2.f | 81 $ NOUT, NTRA variable
123 READ( NIN, FMT = * )NOUT
124 OPEN( NOUT, FILE = SUMMRY, STATUS = 'NEW' )
125 NOUTC = NOUT
150 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
156 WRITE( NOUT, FMT = 9996 )NMAX
163 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
169 WRITE( NOUT, FMT = 9995 )
176 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
182 WRITE( NOUT, FMT = 9994 )INCMAX
[all …]
|
| D | sblat2.f | 81 $ NOUT, NTRA variable
123 READ( NIN, FMT = * )NOUT
124 OPEN( NOUT, FILE = SUMMRY, STATUS = 'NEW' )
125 NOUTC = NOUT
150 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
156 WRITE( NOUT, FMT = 9996 )NMAX
163 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
169 WRITE( NOUT, FMT = 9995 )
176 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
182 WRITE( NOUT, FMT = 9994 )INCMAX
[all …]
|
| D | zblat1.f | 6 INTEGER NOUT variable
7 PARAMETER (NOUT=6)
21 WRITE (NOUT,99999)
41 IF (PASS) WRITE (NOUT,99998)
50 INTEGER NOUT local
51 PARAMETER (NOUT=6)
71 WRITE (NOUT,99999) ICASE, L(ICASE)
78 INTEGER NOUT local
79 PARAMETER (NOUT=6)
230 WRITE (NOUT,*) ' Shouldn''t be here in CHECK1'
[all …]
|
| D | dblat1.f | 48 INTEGER NOUT variable
49 PARAMETER (NOUT=6)
63 WRITE (NOUT,99999)
88 IF (PASS) WRITE (NOUT,99998)
97 INTEGER NOUT local
98 PARAMETER (NOUT=6)
121 WRITE (NOUT,99999) ICASE, L(ICASE)
128 INTEGER NOUT local
129 PARAMETER (NOUT=6)
236 WRITE (NOUT,*) ' Shouldn''t be here in CHECK0'
[all …]
|
| D | cblat1.f | 6 INTEGER NOUT variable
7 PARAMETER (NOUT=6)
21 WRITE (NOUT,99999)
41 IF (PASS) WRITE (NOUT,99998)
50 INTEGER NOUT local
51 PARAMETER (NOUT=6)
71 WRITE (NOUT,99999) ICASE, L(ICASE)
78 INTEGER NOUT local
79 PARAMETER (NOUT=6)
230 WRITE (NOUT,*) ' Shouldn''t be here in CHECK1'
[all …]
|
| D | sblat1.f | 48 INTEGER NOUT variable
49 PARAMETER (NOUT=6)
63 WRITE (NOUT,99999)
88 IF (PASS) WRITE (NOUT,99998)
97 INTEGER NOUT local
98 PARAMETER (NOUT=6)
121 WRITE (NOUT,99999) ICASE, L(ICASE)
128 INTEGER NOUT local
129 PARAMETER (NOUT=6)
236 WRITE (NOUT,*) ' Shouldn''t be here in CHECK0'
[all …]
|
| /external/cblas/testing/ |
| D | c_dblat3.f | 46 INTEGER NIN, NOUT variable
47 PARAMETER ( NIN = 5, NOUT = 6 )
99 NOUTC = NOUT
125 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
131 WRITE( NOUT, FMT = 9996 )NMAX
138 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
145 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
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 )
[all …]
|
| D | c_sblat3.f | 46 INTEGER NIN, NOUT variable
47 PARAMETER ( NIN = 5, NOUT = 6 )
97 NOUTC = NOUT
124 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
130 WRITE( NOUT, FMT = 9996 )NMAX
137 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
144 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
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 )
[all …]
|
| D | c_cblat3.f | 49 INTEGER NIN, NOUT variable
50 PARAMETER ( NIN = 5, NOUT = 6 )
103 NOUTC = NOUT
130 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
136 WRITE( NOUT, FMT = 9996 )NMAX
143 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
150 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
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 )
[all …]
|
| D | c_zblat3.f | 49 INTEGER NIN, NOUT variable
50 PARAMETER ( NIN = 5, NOUT = 6 )
104 NOUTC = NOUT
131 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
137 WRITE( NOUT, FMT = 9996 )NMAX
144 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
151 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
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 )
[all …]
|
| D | c_sblat2.f | 66 INTEGER NIN, NOUT variable
67 PARAMETER ( NIN = 5, NOUT = 6 )
121 NOUTC = NOUT
148 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
154 WRITE( NOUT, FMT = 9996 )NMAX
161 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
167 WRITE( NOUT, FMT = 9995 )
174 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
180 WRITE( NOUT, FMT = 9994 )INCMAX
187 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
[all …]
|
| D | c_dblat2.f | 66 INTEGER NIN, NOUT variable
67 PARAMETER ( NIN = 5, NOUT = 6 )
121 NOUTC = NOUT
148 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
154 WRITE( NOUT, FMT = 9996 )NMAX
161 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
167 WRITE( NOUT, FMT = 9995 )
174 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
180 WRITE( NOUT, FMT = 9994 )INCMAX
187 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
[all …]
|
| D | c_dblat1.f | 6 INTEGER NOUT variable
7 PARAMETER (NOUT=6)
21 WRITE (NOUT,99999)
47 IF (PASS) WRITE (NOUT,99998)
56 INTEGER NOUT local
57 PARAMETER (NOUT=6)
77 WRITE (NOUT,99999) ICASE, L(ICASE)
84 INTEGER NOUT local
85 PARAMETER (NOUT=6)
137 WRITE (NOUT,*) ' Shouldn''t be here in CHECK0'
[all …]
|
| D | c_zblat1.f | 6 INTEGER NOUT variable
7 PARAMETER (NOUT=6)
21 WRITE (NOUT,99999)
41 IF (PASS) WRITE (NOUT,99998)
50 INTEGER NOUT local
51 PARAMETER (NOUT=6)
71 WRITE (NOUT,99999) ICASE, L(ICASE)
78 INTEGER NOUT local
79 PARAMETER (NOUT=6)
230 WRITE (NOUT,*) ' Shouldn''t be here in CHECK1'
[all …]
|
| D | c_cblat2.f | 67 INTEGER NIN, NOUT variable
68 PARAMETER ( NIN = 5, NOUT = 6 )
125 NOUTC = NOUT
152 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
158 WRITE( NOUT, FMT = 9996 )NMAX
165 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
171 WRITE( NOUT, FMT = 9995 )
178 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
184 WRITE( NOUT, FMT = 9994 )INCMAX
191 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
[all …]
|
| D | c_zblat2.f | 67 INTEGER NIN, NOUT variable
68 PARAMETER ( NIN = 5, NOUT = 6 )
126 NOUTC = NOUT
153 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
159 WRITE( NOUT, FMT = 9996 )NMAX
166 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
172 WRITE( NOUT, FMT = 9995 )
179 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
185 WRITE( NOUT, FMT = 9994 )INCMAX
192 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
[all …]
|
| D | c_sblat1.f | 6 INTEGER NOUT variable
7 PARAMETER (NOUT=6)
21 WRITE (NOUT,99999)
47 IF (PASS) WRITE (NOUT,99998)
56 INTEGER NOUT local
57 PARAMETER (NOUT=6)
77 WRITE (NOUT,99999) ICASE, L(ICASE)
84 INTEGER NOUT local
85 PARAMETER (NOUT=6)
137 WRITE (NOUT,*) ' Shouldn''t be here in CHECK0'
[all …]
|
| D | c_cblat1.f | 6 INTEGER NOUT variable
7 PARAMETER (NOUT=6)
21 WRITE (NOUT,99999)
41 IF (PASS) WRITE (NOUT,99998)
50 INTEGER NOUT local
51 PARAMETER (NOUT=6)
71 WRITE (NOUT,99999) ICASE, L(ICASE)
78 INTEGER NOUT local
79 PARAMETER (NOUT=6)
230 WRITE (NOUT,*) ' Shouldn''t be here in CHECK1'
[all …]
|