sysrap/tests/scuda_double_test.cc

0001 // ./scuda_double_test.sh
0002
0003 #include "scuda.h"
0004 #include "scuda_double.h"
0005
0006 void test_length()
0007 {
0008     double2 d2 = { 3., 4. } ;
0009     double l_d2 = length(d2) ;
0010     std::cout << " d2 " << d2 << " l_d2 " << l_d2 << std::endl ;
0011
0012     double s = 1./sqrtf(3.) ;
0013     double3 d3 = { s, s, s } ;
0014     double l_d3 = length(d3) ;
0015     std::cout << " d3 " << d3 << " l_d3 " << l_d3 << std::endl ;
0016 }
0017
0018
0019 int main()
0020 {
0021     test_length();
0022
0023     return 0 ;
0024 }