/dports/math/xblas/xblas-1.0.248/testing/test-dot2/ |
H A D | test_dot2.c | 280 x_ii[1] = -x_ii[1]; in test_BLAS_cdot2() 281 S1 += sqrt(x_ii[0] * x_ii[0] + x_ii[1] * x_ii[1]); in test_BLAS_cdot2() 423 x_ii[1] = -x_ii[1]; in test_BLAS_zdot2() 424 S1 += sqrt(x_ii[0] * x_ii[0] + x_ii[1] * x_ii[1]); in test_BLAS_zdot2() 832 x_ii[1] = -x_ii[1]; in test_BLAS_cdot2_c_s() 833 S1 += sqrt(x_ii[0] * x_ii[0] + x_ii[1] * x_ii[1]); in test_BLAS_cdot2_c_s() 1239 x_ii[1] = -x_ii[1]; in test_BLAS_zdot2_z_d() 1240 S1 += sqrt(x_ii[0] * x_ii[0] + x_ii[1] * x_ii[1]); in test_BLAS_zdot2_z_d() 1664 S1 += sqrt(x_ii[0] * x_ii[0] + x_ii[1] * x_ii[1]); in test_BLAS_zdot2_c_c() 1804 S1 += sqrt(x_ii[0] * x_ii[0] + x_ii[1] * x_ii[1]); in test_BLAS_zdot2_c_z() [all …]
|
H A D | dot2.c | 856 x_ii[1] = -x_ii[1]; in BLAS_cdot2_x() 858 prod[0] = x_ii[0] * y_ii[0] - x_ii[1] * y_ii[1]; in BLAS_cdot2_x() 859 prod[1] = x_ii[0] * y_ii[1] + x_ii[1] * y_ii[0]; in BLAS_cdot2_x() 867 prod[0] = x_ii[0] * y_ii[0] - x_ii[1] * y_ii[1]; in BLAS_cdot2_x() 868 prod[1] = x_ii[0] * y_ii[1] + x_ii[1] * y_ii[0]; in BLAS_cdot2_x() 886 prod[0] = x_ii[0] * y_ii[0] - x_ii[1] * y_ii[1]; in BLAS_cdot2_x() 974 x_ii[1] = -x_ii[1]; in BLAS_cdot2_x() 1085 x_ii[1] = -x_ii[1]; in BLAS_cdot2_x() 1961 x_ii[1] = -x_ii[1]; in BLAS_zdot2_x() 2073 x_ii[1] = -x_ii[1]; in BLAS_zdot2_x() [all …]
|
H A D | r_truth2.c | 60 float x_ii; in s_r_truth2() local 87 x_ii = x_i[ix]; in s_r_truth2() 271 double x_ii; in d_r_truth2() local 298 x_ii = x_i[ix]; in d_r_truth2() 306 a1 = con - x_ii; in d_r_truth2() 308 a2 = x_ii - a1; in d_r_truth2() 352 a2 = x_ii - a1; in d_r_truth2() 521 float x_ii[2]; in c_r_truth2() local 554 x_ii[1] = -x_ii[1]; in c_r_truth2() 1381 double x_ii[2]; in z_r_truth2() local [all …]
|
/dports/math/xblas/xblas-1.0.248/src/dot/ |
H A D | BLAS_zdot_z_c.c | 53 double x_ii[2]; in BLAS_zdot_z_c() local 89 x_ii[0] = x_i[ix]; in BLAS_zdot_z_c() 90 x_ii[1] = x_i[ix + 1]; in BLAS_zdot_z_c() 93 x_ii[1] = -x_ii[1]; in BLAS_zdot_z_c() 95 prod[0] = (double) x_ii[0] * y_ii[0] - (double) x_ii[1] * y_ii[1]; in BLAS_zdot_z_c() 96 prod[1] = (double) x_ii[0] * y_ii[1] + (double) x_ii[1] * y_ii[0]; in BLAS_zdot_z_c() 107 x_ii[0] = x_i[ix]; in BLAS_zdot_z_c() 108 x_ii[1] = x_i[ix + 1]; in BLAS_zdot_z_c() 113 prod[0] = (double) x_ii[0] * y_ii[0] - (double) x_ii[1] * y_ii[1]; in BLAS_zdot_z_c() 114 prod[1] = (double) x_ii[0] * y_ii[1] + (double) x_ii[1] * y_ii[0]; in BLAS_zdot_z_c()
|
H A D | BLAS_zdot_c_c.c | 53 float x_ii[2]; in BLAS_zdot_c_c() local 89 x_ii[0] = x_i[ix]; in BLAS_zdot_c_c() 90 x_ii[1] = x_i[ix + 1]; in BLAS_zdot_c_c() 93 x_ii[1] = -x_ii[1]; in BLAS_zdot_c_c() 95 prod[0] = (double) x_ii[0] * y_ii[0] - (double) x_ii[1] * y_ii[1]; in BLAS_zdot_c_c() 96 prod[1] = (double) x_ii[0] * y_ii[1] + (double) x_ii[1] * y_ii[0]; in BLAS_zdot_c_c() 107 x_ii[0] = x_i[ix]; in BLAS_zdot_c_c() 108 x_ii[1] = x_i[ix + 1]; in BLAS_zdot_c_c() 113 prod[0] = (double) x_ii[0] * y_ii[0] - (double) x_ii[1] * y_ii[1]; in BLAS_zdot_c_c() 114 prod[1] = (double) x_ii[0] * y_ii[1] + (double) x_ii[1] * y_ii[0]; in BLAS_zdot_c_c()
|
H A D | BLAS_zdot_c_z.c | 53 float x_ii[2]; in BLAS_zdot_c_z() local 89 x_ii[0] = x_i[ix]; in BLAS_zdot_c_z() 90 x_ii[1] = x_i[ix + 1]; in BLAS_zdot_c_z() 93 x_ii[1] = -x_ii[1]; in BLAS_zdot_c_z() 95 prod[0] = (double) x_ii[0] * y_ii[0] - (double) x_ii[1] * y_ii[1]; in BLAS_zdot_c_z() 96 prod[1] = (double) x_ii[0] * y_ii[1] + (double) x_ii[1] * y_ii[0]; in BLAS_zdot_c_z() 107 x_ii[0] = x_i[ix]; in BLAS_zdot_c_z() 108 x_ii[1] = x_i[ix + 1]; in BLAS_zdot_c_z() 113 prod[0] = (double) x_ii[0] * y_ii[0] - (double) x_ii[1] * y_ii[1]; in BLAS_zdot_c_z() 114 prod[1] = (double) x_ii[0] * y_ii[1] + (double) x_ii[1] * y_ii[0]; in BLAS_zdot_c_z()
|
H A D | BLAS_cdot_x.c | 64 float x_ii[2]; in BLAS_cdot_x() local 100 x_ii[0] = x_i[ix]; in BLAS_cdot_x() 104 x_ii[1] = -x_ii[1]; in BLAS_cdot_x() 106 prod[0] = x_ii[0] * y_ii[0] - x_ii[1] * y_ii[1]; in BLAS_cdot_x() 107 prod[1] = x_ii[0] * y_ii[1] + x_ii[1] * y_ii[0]; in BLAS_cdot_x() 119 x_ii[0] = x_i[ix]; in BLAS_cdot_x() 125 prod[0] = x_ii[0] * y_ii[0] - x_ii[1] * y_ii[1]; in BLAS_cdot_x() 126 prod[1] = x_ii[0] * y_ii[1] + x_ii[1] * y_ii[0]; in BLAS_cdot_x() 164 float x_ii[2]; in BLAS_cdot_x() local 204 x_ii[1] = -x_ii[1]; in BLAS_cdot_x() [all …]
|
H A D | BLAS_zdot_z_d.c | 53 double x_ii[2]; in BLAS_zdot_z_d() local 89 x_ii[0] = x_i[ix]; in BLAS_zdot_z_d() 90 x_ii[1] = x_i[ix + 1]; in BLAS_zdot_z_d() 92 x_ii[1] = -x_ii[1]; in BLAS_zdot_z_d() 94 prod[0] = x_ii[0] * y_ii; in BLAS_zdot_z_d() 95 prod[1] = x_ii[1] * y_ii; in BLAS_zdot_z_d() 106 x_ii[0] = x_i[ix]; in BLAS_zdot_z_d() 107 x_ii[1] = x_i[ix + 1]; in BLAS_zdot_z_d() 111 prod[0] = x_ii[0] * y_ii; in BLAS_zdot_z_d() 112 prod[1] = x_ii[1] * y_ii; in BLAS_zdot_z_d()
|
H A D | BLAS_cdot_c_s.c | 53 float x_ii[2]; in BLAS_cdot_c_s() local 89 x_ii[0] = x_i[ix]; in BLAS_cdot_c_s() 90 x_ii[1] = x_i[ix + 1]; in BLAS_cdot_c_s() 92 x_ii[1] = -x_ii[1]; in BLAS_cdot_c_s() 94 prod[0] = x_ii[0] * y_ii; in BLAS_cdot_c_s() 95 prod[1] = x_ii[1] * y_ii; in BLAS_cdot_c_s() 106 x_ii[0] = x_i[ix]; in BLAS_cdot_c_s() 107 x_ii[1] = x_i[ix + 1]; in BLAS_cdot_c_s() 111 prod[0] = x_ii[0] * y_ii; in BLAS_cdot_c_s() 112 prod[1] = x_ii[1] * y_ii; in BLAS_cdot_c_s()
|
H A D | BLAS_zdot_z_c_x.c | 67 double x_ii[2]; in BLAS_zdot_z_c_x() local 103 x_ii[0] = x_i[ix]; in BLAS_zdot_z_c_x() 107 x_ii[1] = -x_ii[1]; in BLAS_zdot_z_c_x() 109 prod[0] = (double) x_ii[0] * y_ii[0] - (double) x_ii[1] * y_ii[1]; in BLAS_zdot_z_c_x() 110 prod[1] = (double) x_ii[0] * y_ii[1] + (double) x_ii[1] * y_ii[0]; in BLAS_zdot_z_c_x() 121 x_ii[0] = x_i[ix]; in BLAS_zdot_z_c_x() 127 prod[0] = (double) x_ii[0] * y_ii[0] - (double) x_ii[1] * y_ii[1]; in BLAS_zdot_z_c_x() 128 prod[1] = (double) x_ii[0] * y_ii[1] + (double) x_ii[1] * y_ii[0]; in BLAS_zdot_z_c_x() 201 x_ii[1] = -x_ii[1]; in BLAS_zdot_z_c_x() 218 a2 = x_ii[0] - a1; in BLAS_zdot_z_c_x() [all …]
|
H A D | BLAS_zdot_x.c | 66 double x_ii[2]; in BLAS_zdot_x() local 102 x_ii[0] = x_i[ix]; in BLAS_zdot_x() 106 x_ii[1] = -x_ii[1]; in BLAS_zdot_x() 108 prod[0] = (double) x_ii[0] * y_ii[0] - (double) x_ii[1] * y_ii[1]; in BLAS_zdot_x() 109 prod[1] = (double) x_ii[0] * y_ii[1] + (double) x_ii[1] * y_ii[0]; in BLAS_zdot_x() 120 x_ii[0] = x_i[ix]; in BLAS_zdot_x() 126 prod[0] = (double) x_ii[0] * y_ii[0] - (double) x_ii[1] * y_ii[1]; in BLAS_zdot_x() 127 prod[1] = (double) x_ii[0] * y_ii[1] + (double) x_ii[1] * y_ii[0]; in BLAS_zdot_x() 160 double x_ii[2]; in BLAS_zdot_x() local 196 x_ii[0] = x_i[ix]; in BLAS_zdot_x() [all …]
|
H A D | BLAS_cdot_c_s_x.c | 65 float x_ii[2]; in BLAS_cdot_c_s_x() local 101 x_ii[0] = x_i[ix]; in BLAS_cdot_c_s_x() 104 x_ii[1] = -x_ii[1]; in BLAS_cdot_c_s_x() 118 x_ii[0] = x_i[ix]; in BLAS_cdot_c_s_x() 161 float x_ii[2]; in BLAS_cdot_c_s_x() local 197 x_ii[0] = x_i[ix]; in BLAS_cdot_c_s_x() 200 x_ii[1] = -x_ii[1]; in BLAS_cdot_c_s_x() 214 x_ii[0] = x_i[ix]; in BLAS_cdot_c_s_x() 253 float x_ii[2]; in BLAS_cdot_c_s_x() local 289 x_ii[0] = x_i[ix]; in BLAS_cdot_c_s_x() [all …]
|
H A D | BLAS_zdot_z_d_x.c | 67 double x_ii[2]; in BLAS_zdot_z_d_x() local 103 x_ii[0] = x_i[ix]; in BLAS_zdot_z_d_x() 104 x_ii[1] = x_i[ix + 1]; in BLAS_zdot_z_d_x() 106 x_ii[1] = -x_ii[1]; in BLAS_zdot_z_d_x() 120 x_ii[0] = x_i[ix]; in BLAS_zdot_z_d_x() 121 x_ii[1] = x_i[ix + 1]; in BLAS_zdot_z_d_x() 159 double x_ii[2]; in BLAS_zdot_z_d_x() local 195 x_ii[0] = x_i[ix]; in BLAS_zdot_z_d_x() 196 x_ii[1] = x_i[ix + 1]; in BLAS_zdot_z_d_x() 198 x_ii[1] = -x_ii[1]; in BLAS_zdot_z_d_x() [all …]
|
/dports/math/xblas/xblas-1.0.248/testing/test-dot/ |
H A D | test_dot.c | 276 x_ii[1] = -x_ii[1]; in test_BLAS_cdot() 278 S1 += sqrt(x_ii[0] * x_ii[0] + x_ii[1] * x_ii[1]); in test_BLAS_cdot() 404 x_ii[1] = -x_ii[1]; in test_BLAS_zdot() 406 S1 += sqrt(x_ii[0] * x_ii[0] + x_ii[1] * x_ii[1]); in test_BLAS_zdot() 773 x_ii[1] = -x_ii[1]; in test_BLAS_cdot_c_s() 775 S1 += sqrt(x_ii[0] * x_ii[0] + x_ii[1] * x_ii[1]); in test_BLAS_cdot_c_s() 1141 x_ii[1] = -x_ii[1]; in test_BLAS_zdot_z_d() 1143 S1 += sqrt(x_ii[0] * x_ii[0] + x_ii[1] * x_ii[1]); in test_BLAS_zdot_z_d() 1554 S1 += sqrt(x_ii[0] * x_ii[0] + x_ii[1] * x_ii[1]); in test_BLAS_zdot_c_c() 1680 S1 += sqrt(x_ii[0] * x_ii[0] + x_ii[1] * x_ii[1]); in test_BLAS_zdot_c_z() [all …]
|
/dports/math/xblas/xblas-1.0.248/src/waxpby/ |
H A D | BLAS_cwaxpby_c_s_x.c | 64 float x_ii[2]; in BLAS_cwaxpby_c_s_x() local 98 x_ii[0] = x_i[ix]; in BLAS_cwaxpby_c_s_x() 99 x_ii[1] = x_i[ix + 1]; in BLAS_cwaxpby_c_s_x() 102 tmpx[0] = alpha_i[0] * x_ii[0] - alpha_i[1] * x_ii[1]; in BLAS_cwaxpby_c_s_x() 103 tmpx[1] = alpha_i[0] * x_ii[1] + alpha_i[1] * x_ii[0]; in BLAS_cwaxpby_c_s_x() 132 float x_ii[2]; in BLAS_cwaxpby_c_s_x() local 166 x_ii[0] = x_i[ix]; in BLAS_cwaxpby_c_s_x() 171 (double) alpha_i[0] * x_ii[0] - (double) alpha_i[1] * x_ii[1]; in BLAS_cwaxpby_c_s_x() 173 (double) alpha_i[0] * x_ii[1] + (double) alpha_i[1] * x_ii[0]; in BLAS_cwaxpby_c_s_x() 201 float x_ii[2]; in BLAS_cwaxpby_c_s_x() local [all …]
|
H A D | BLAS_zwaxpby_z_d_x.c | 66 double x_ii[2]; in BLAS_zwaxpby_z_d_x() local 100 x_ii[0] = x_i[ix]; in BLAS_zwaxpby_z_d_x() 101 x_ii[1] = x_i[ix + 1]; in BLAS_zwaxpby_z_d_x() 105 (double) alpha_i[0] * x_ii[0] - (double) alpha_i[1] * x_ii[1]; in BLAS_zwaxpby_z_d_x() 107 (double) alpha_i[0] * x_ii[1] + (double) alpha_i[1] * x_ii[0]; in BLAS_zwaxpby_z_d_x() 135 double x_ii[2]; in BLAS_zwaxpby_z_d_x() local 169 x_ii[0] = x_i[ix]; in BLAS_zwaxpby_z_d_x() 170 x_ii[1] = x_i[ix + 1]; in BLAS_zwaxpby_z_d_x() 188 b2 = x_ii[0] - b1; in BLAS_zwaxpby_z_d_x() 204 b2 = x_ii[1] - b1; in BLAS_zwaxpby_z_d_x() [all …]
|
H A D | BLAS_cwaxpby_x.c | 64 float x_ii[2]; in BLAS_cwaxpby_x() local 98 x_ii[0] = x_i[ix]; in BLAS_cwaxpby_x() 99 x_ii[1] = x_i[ix + 1]; in BLAS_cwaxpby_x() 103 tmpx[0] = alpha_i[0] * x_ii[0] - alpha_i[1] * x_ii[1]; in BLAS_cwaxpby_x() 104 tmpx[1] = alpha_i[0] * x_ii[1] + alpha_i[1] * x_ii[0]; in BLAS_cwaxpby_x() 134 float x_ii[2]; in BLAS_cwaxpby_x() local 168 x_ii[0] = x_i[ix]; in BLAS_cwaxpby_x() 174 (double) alpha_i[0] * x_ii[0] - (double) alpha_i[1] * x_ii[1]; in BLAS_cwaxpby_x() 176 (double) alpha_i[0] * x_ii[1] + (double) alpha_i[1] * x_ii[0]; in BLAS_cwaxpby_x() 206 float x_ii[2]; in BLAS_cwaxpby_x() local [all …]
|
H A D | BLAS_zwaxpby_z_c_x.c | 66 double x_ii[2]; in BLAS_zwaxpby_z_c_x() local 100 x_ii[0] = x_i[ix]; in BLAS_zwaxpby_z_c_x() 101 x_ii[1] = x_i[ix + 1]; in BLAS_zwaxpby_z_c_x() 106 (double) alpha_i[0] * x_ii[0] - (double) alpha_i[1] * x_ii[1]; in BLAS_zwaxpby_z_c_x() 108 (double) alpha_i[0] * x_ii[1] + (double) alpha_i[1] * x_ii[0]; in BLAS_zwaxpby_z_c_x() 138 double x_ii[2]; in BLAS_zwaxpby_z_c_x() local 172 x_ii[0] = x_i[ix]; in BLAS_zwaxpby_z_c_x() 173 x_ii[1] = x_i[ix + 1]; in BLAS_zwaxpby_z_c_x() 192 b2 = x_ii[0] - b1; in BLAS_zwaxpby_z_c_x() 208 b2 = x_ii[1] - b1; in BLAS_zwaxpby_z_c_x() [all …]
|
H A D | BLAS_zwaxpby_x.c | 66 double x_ii[2]; in BLAS_zwaxpby_x() local 100 x_ii[0] = x_i[ix]; in BLAS_zwaxpby_x() 101 x_ii[1] = x_i[ix + 1]; in BLAS_zwaxpby_x() 106 (double) alpha_i[0] * x_ii[0] - (double) alpha_i[1] * x_ii[1]; in BLAS_zwaxpby_x() 108 (double) alpha_i[0] * x_ii[1] + (double) alpha_i[1] * x_ii[0]; in BLAS_zwaxpby_x() 138 double x_ii[2]; in BLAS_zwaxpby_x() local 172 x_ii[0] = x_i[ix]; in BLAS_zwaxpby_x() 173 x_ii[1] = x_i[ix + 1]; in BLAS_zwaxpby_x() 192 b2 = x_ii[0] - b1; in BLAS_zwaxpby_x() 208 b2 = x_ii[1] - b1; in BLAS_zwaxpby_x() [all …]
|
H A D | BLAS_zwaxpby_z_d.c | 54 double x_ii[2]; in BLAS_zwaxpby_z_d() local 88 x_ii[0] = x_i[ix]; in BLAS_zwaxpby_z_d() 89 x_ii[1] = x_i[ix + 1]; in BLAS_zwaxpby_z_d() 92 tmpx[0] = (double) alpha_i[0] * x_ii[0] - (double) alpha_i[1] * x_ii[1]; in BLAS_zwaxpby_z_d() 93 tmpx[1] = (double) alpha_i[0] * x_ii[1] + (double) alpha_i[1] * x_ii[0]; in BLAS_zwaxpby_z_d()
|
H A D | BLAS_cwaxpby_c_s.c | 54 float x_ii[2]; in BLAS_cwaxpby_c_s() local 88 x_ii[0] = x_i[ix]; in BLAS_cwaxpby_c_s() 89 x_ii[1] = x_i[ix + 1]; in BLAS_cwaxpby_c_s() 92 tmpx[0] = alpha_i[0] * x_ii[0] - alpha_i[1] * x_ii[1]; in BLAS_cwaxpby_c_s() 93 tmpx[1] = alpha_i[0] * x_ii[1] + alpha_i[1] * x_ii[0]; in BLAS_cwaxpby_c_s()
|
H A D | BLAS_zwaxpby_c_c.c | 54 float x_ii[2]; in BLAS_zwaxpby_c_c() local 88 x_ii[0] = x_i[ix]; in BLAS_zwaxpby_c_c() 89 x_ii[1] = x_i[ix + 1]; in BLAS_zwaxpby_c_c() 93 tmpx[0] = (double) alpha_i[0] * x_ii[0] - (double) alpha_i[1] * x_ii[1]; in BLAS_zwaxpby_c_c() 94 tmpx[1] = (double) alpha_i[0] * x_ii[1] + (double) alpha_i[1] * x_ii[0]; in BLAS_zwaxpby_c_c()
|
/dports/math/xblas/xblas-1.0.248/src/axpby/ |
H A D | BLAS_caxpby_x.c | 57 float x_ii[2]; in BLAS_caxpby_x() local 85 x_ii[0] = x_i[ix]; in BLAS_caxpby_x() 86 x_ii[1] = x_i[ix + 1]; in BLAS_caxpby_x() 90 tmpx[0] = alpha_i[0] * x_ii[0] - alpha_i[1] * x_ii[1]; in BLAS_caxpby_x() 91 tmpx[1] = alpha_i[0] * x_ii[1] + alpha_i[1] * x_ii[0]; in BLAS_caxpby_x() 119 float x_ii[2]; in BLAS_caxpby_x() local 147 x_ii[0] = x_i[ix]; in BLAS_caxpby_x() 153 (double) alpha_i[0] * x_ii[0] - (double) alpha_i[1] * x_ii[1]; in BLAS_caxpby_x() 155 (double) alpha_i[0] * x_ii[1] + (double) alpha_i[1] * x_ii[0]; in BLAS_caxpby_x() 181 float x_ii[2]; in BLAS_caxpby_x() local [all …]
|
H A D | BLAS_zaxpby_x.c | 59 double x_ii[2]; in BLAS_zaxpby_x() local 87 x_ii[0] = x_i[ix]; in BLAS_zaxpby_x() 88 x_ii[1] = x_i[ix + 1]; in BLAS_zaxpby_x() 93 (double) alpha_i[0] * x_ii[0] - (double) alpha_i[1] * x_ii[1]; in BLAS_zaxpby_x() 95 (double) alpha_i[0] * x_ii[1] + (double) alpha_i[1] * x_ii[0]; in BLAS_zaxpby_x() 121 double x_ii[2]; in BLAS_zaxpby_x() local 149 x_ii[0] = x_i[ix]; in BLAS_zaxpby_x() 150 x_ii[1] = x_i[ix + 1]; in BLAS_zaxpby_x() 169 b2 = x_ii[0] - b1; in BLAS_zaxpby_x() 185 b2 = x_ii[1] - b1; in BLAS_zaxpby_x() [all …]
|
H A D | BLAS_zaxpby_c.c | 45 float x_ii[2]; in BLAS_zaxpby_c() local 73 x_ii[0] = x_i[ix]; in BLAS_zaxpby_c() 74 x_ii[1] = x_i[ix + 1]; in BLAS_zaxpby_c() 78 tmpx[0] = (double) alpha_i[0] * x_ii[0] - (double) alpha_i[1] * x_ii[1]; in BLAS_zaxpby_c() 79 tmpx[1] = (double) alpha_i[0] * x_ii[1] + (double) alpha_i[1] * x_ii[0]; in BLAS_zaxpby_c()
|