| /external/cblas/testing/ |
| D | c_sblat2.f | 79 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable
159 READ( NIN, FMT = * )NKB
160 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
164 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
165 DO 20 I = 1, NKB
203 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
317 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
323 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
331 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
337 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
[all …]
|
| D | c_dblat2.f | 79 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable
159 READ( NIN, FMT = * )NKB
160 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
164 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
165 DO 20 I = 1, NKB
203 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
317 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
323 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
331 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
337 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
[all …]
|
| D | c_cblat2.f | 82 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable
163 READ( NIN, FMT = * )NKB
164 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
168 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
169 DO 20 I = 1, NKB
207 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
321 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
327 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
335 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
341 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
[all …]
|
| D | c_zblat2.f | 83 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable
164 READ( NIN, FMT = * )NKB
165 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
169 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
170 DO 20 I = 1, NKB
208 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
321 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
327 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
335 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
341 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
[all …]
|
| /external/eigen/blas/testing/ |
| D | cblat2.f | 83 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable
166 READ( NIN, FMT = * )NKB
167 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
171 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
172 DO 20 I = 1, NKB
210 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
308 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
314 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
321 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
399 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, argument
[all …]
|
| D | dblat2.f | 80 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable
161 READ( NIN, FMT = * )NKB
162 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
166 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
167 DO 20 I = 1, NKB
205 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
303 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
309 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
316 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
392 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, argument
[all …]
|
| D | sblat2.f | 80 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable
161 READ( NIN, FMT = * )NKB
162 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
166 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
167 DO 20 I = 1, NKB
205 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
303 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
309 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
316 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
392 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, argument
[all …]
|
| D | zblat2.f | 84 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable
167 READ( NIN, FMT = * )NKB
168 IF( NKB.LT.1.OR.NKB.GT.NKBMAX )THEN
172 READ( NIN, FMT = * )( KB( I ), I = 1, NKB )
173 DO 20 I = 1, NKB
211 WRITE( NOUT, FMT = 9991 )( KB( I ), I = 1, NKB )
309 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
315 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF,
322 $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC,
400 $ FATAL, NIDIM, IDIM, NKB, KB, NALF, ALF, NBET, argument
[all …]
|