1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
#include <stdio.h>
#include "magma_v2.h"
#include "testings.h"
int main( int argc, char** argv )
{
magma_init();
magma_opts opts;
opts.parse_opts( argc, argv );
for( int itest = 0; itest < opts.ntest; ++itest ) {
printf( "m %5lld, n %5lld, k %5lld\n",
(long long) opts.msize[itest],
(long long) opts.nsize[itest],
(long long) opts.ksize[itest] );
}
printf( "\n" );
printf( "ntest %lld\n", (long long) opts.ntest );
printf( "\n" );
printf( "nb %lld\n", (long long) opts.nb );
printf( "nrhs %lld\n", (long long) opts.nrhs );
printf( "nqueue %lld\n", (long long) opts.nqueue );
printf( "ngpu %lld\n", (long long) opts.ngpu );
printf( "niter %lld\n", (long long) opts.niter );
printf( "nthread %lld\n", (long long) opts.nthread );
printf( "itype %lld\n", (long long) opts.itype );
printf( "verbose %lld\n", (long long) opts.verbose );
printf( "\n" );
printf( "check %s\n", (opts.check ? "true" : "false") );
printf( "lapack %s\n", (opts.lapack ? "true" : "false") );
printf( "warmup %s\n", (opts.warmup ? "true" : "false") );
printf( "\n" );
printf( "uplo %3d (%s)\n", opts.uplo, lapack_uplo_const( opts.uplo ));
printf( "transA %3d (%s)\n", opts.transA, lapack_trans_const( opts.transA ));
printf( "transB %3d (%s)\n", opts.transB, lapack_trans_const( opts.transB ));
printf( "side %3d (%s)\n", opts.side, lapack_side_const( opts.side ));
printf( "diag %3d (%s)\n", opts.diag, lapack_diag_const( opts.diag ));
printf( "jobz %3d (%s)\n", opts.jobz, lapack_vec_const( opts.jobz ));
printf( "jobvr %3d (%s)\n", opts.jobvr, lapack_vec_const( opts.jobvr ));
printf( "jobvl %3d (%s)\n", opts.jobvl, lapack_vec_const( opts.jobvl ));
for( auto iter = opts.svd_work.begin(); iter < opts.svd_work.end(); ++iter ) {
printf( "svd_work %lld\n", (long long) *iter );
}
for( auto iter = opts.jobu.begin(); iter < opts.jobu.end(); ++iter ) {
printf( "jobu %3d (%s)\n", *iter, lapack_vec_const( *iter ));
}
for( auto iter = opts.jobv.begin(); iter < opts.jobv.end(); ++iter ) {
printf( "jobvt %3d (%s)\n", *iter, lapack_vec_const( *iter ));
}
opts.cleanup();
magma_finalize();
return 0;
}
|
