/dports/math/xblas/xblas-1.0.248/testing/test-symv/ |
H A D | BLAS_symv_testgen.c | 98 float y_elem; in BLAS_ssymv_testgen() local 168 y_i[yi] = y_elem; in BLAS_ssymv_testgen() 366 double y_elem; in BLAS_dsymv_testgen() local 634 float y_elem[2]; in BLAS_csymv_testgen() local 921 double y_elem[2]; in BLAS_zsymv_testgen() local 1208 float y_elem[2]; in BLAS_csymv_s_s_testgen() local 1511 float y_elem[2]; in BLAS_csymv_s_c_testgen() local 1807 float y_elem[2]; in BLAS_csymv_c_s_testgen() local 2998 double y_elem; in BLAS_dsymv_s_s_testgen() local 3266 double y_elem; in BLAS_dsymv_s_d_testgen() local [all …]
|
/dports/math/xblas/xblas-1.0.248/testing/test-tbsv/ |
H A D | tbsv-support.c | 380 float y_elem[2]; in ctbsv_copy() local 390 y_elem[1] = -y_elem[1]; in ctbsv_copy() 468 float y_elem[2]; in ctbsv_commit() local 478 y_elem[1] = -y_elem[1]; in ctbsv_commit() 489 float y_elem[2]; in ctbsv_commit() local 499 y_elem[1] = -y_elem[1]; in ctbsv_commit() 578 double y_elem[2]; in ztbsv_copy() local 588 y_elem[1] = -y_elem[1]; in ztbsv_copy() 666 double y_elem[2]; in ztbsv_commit() local 676 y_elem[1] = -y_elem[1]; in ztbsv_commit() [all …]
|
/dports/math/xblas/xblas-1.0.248/testing/test-sbmv/ |
H A D | BLAS_sbmv_testgen.c | 101 float y_elem; in BLAS_ssbmv_testgen() local 358 double y_elem; in BLAS_dsbmv_testgen() local 615 float y_elem[2]; in BLAS_csbmv_testgen() local 888 double y_elem[2]; in BLAS_zsbmv_testgen() local 1161 float y_elem[2]; in BLAS_csbmv_s_s_testgen() local 1450 float y_elem[2]; in BLAS_csbmv_s_c_testgen() local 1732 float y_elem[2]; in BLAS_csbmv_c_s_testgen() local 2014 double y_elem[2]; in BLAS_zsbmv_d_d_testgen() local 2867 double y_elem; in BLAS_dsbmv_s_s_testgen() local 3125 double y_elem; in BLAS_dsbmv_s_d_testgen() local [all …]
|
/dports/math/xblas/xblas-1.0.248/testing/test-sum/ |
H A D | sum-support.c | 49 float y_elem; in test_BLAS_ssum() local 63 y_elem = 1.0; in test_BLAS_ssum() 65 y[xi] = y_elem; in test_BLAS_ssum() 122 double y_elem; in test_BLAS_dsum() local 136 y_elem = 1.0; in test_BLAS_dsum() 138 y[xi] = y_elem; in test_BLAS_dsum() 195 float y_elem[2]; in test_BLAS_csum() local 209 y_elem[0] = 1.0; in test_BLAS_csum() 210 y_elem[1] = 0.0; in test_BLAS_csum() 285 y_elem[0] = 1.0; in test_BLAS_zsum() [all …]
|
/dports/math/xblas/xblas-1.0.248/testing/test-symv2/ |
H A D | BLAS_symv2_testgen.c | 76 float y_elem; in BLAS_ssymv2_testgen() local 181 double y_elem; in BLAS_dsymv2_testgen() local 285 float y_elem[2]; in BLAS_csymv2_testgen() local 390 double y_elem[2]; in BLAS_zsymv2_testgen() local 496 float y_elem[2]; in BLAS_csymv2_s_s_testgen() local 601 float y_elem[2]; in BLAS_csymv2_s_c_testgen() local 707 float y_elem[2]; in BLAS_csymv2_c_s_testgen() local 813 double y_elem[2]; in BLAS_zsymv2_d_d_testgen() local 1130 double y_elem; in BLAS_dsymv2_s_s_testgen() local 1235 double y_elem; in BLAS_dsymv2_s_d_testgen() local [all …]
|
/dports/math/xblas/xblas-1.0.248/src/symv/ |
H A D | BLAS_csymv_s_s.c | 83 float y_elem[2]; in BLAS_csymv_s_s() local 148 y_elem[0] = y_i[yi]; in BLAS_csymv_s_s() 151 tmp1[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csymv_s_s() 152 tmp1[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_csymv_s_s() 206 y_elem[0] = y_i[yi]; in BLAS_csymv_s_s() 207 y_elem[1] = y_i[yi + 1]; in BLAS_csymv_s_s() 209 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csymv_s_s() 210 tmp2[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_csymv_s_s() 241 y_elem[0] = y_i[yi]; in BLAS_csymv_s_s() 244 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csymv_s_s() [all …]
|
H A D | BLAS_zsymv_d_d.c | 83 double y_elem[2]; in BLAS_zsymv_d_d() local 148 y_elem[0] = y_i[yi]; in BLAS_zsymv_d_d() 152 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_d_d() 154 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zsymv_d_d() 207 y_elem[0] = y_i[yi]; in BLAS_zsymv_d_d() 208 y_elem[1] = y_i[yi + 1]; in BLAS_zsymv_d_d() 211 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_d_d() 213 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zsymv_d_d() 243 y_elem[0] = y_i[yi]; in BLAS_zsymv_d_d() 247 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_d_d() [all …]
|
H A D | BLAS_zsymv_d_z.c | 83 double y_elem[2]; in BLAS_zsymv_d_z() local 148 y_elem[0] = y_i[yi]; in BLAS_zsymv_d_z() 152 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_d_z() 154 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zsymv_d_z() 225 y_elem[0] = y_i[yi]; in BLAS_zsymv_d_z() 226 y_elem[1] = y_i[yi + 1]; in BLAS_zsymv_d_z() 229 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_d_z() 231 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zsymv_d_z() 271 y_elem[0] = y_i[yi]; in BLAS_zsymv_d_z() 275 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_d_z() [all …]
|
H A D | BLAS_csymv_s_c.c | 83 float y_elem[2]; in BLAS_csymv_s_c() local 148 y_elem[0] = y_i[yi]; in BLAS_csymv_s_c() 151 tmp1[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csymv_s_c() 152 tmp1[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_csymv_s_c() 224 y_elem[0] = y_i[yi]; in BLAS_csymv_s_c() 225 y_elem[1] = y_i[yi + 1]; in BLAS_csymv_s_c() 227 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csymv_s_c() 228 tmp2[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_csymv_s_c() 269 y_elem[0] = y_i[yi]; in BLAS_csymv_s_c() 272 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csymv_s_c() [all …]
|
H A D | BLAS_csymv_c_s.c | 83 float y_elem[2]; in BLAS_csymv_c_s() local 148 y_elem[0] = y_i[yi]; in BLAS_csymv_c_s() 151 tmp1[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csymv_c_s() 152 tmp1[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_csymv_c_s() 224 y_elem[0] = y_i[yi]; in BLAS_csymv_c_s() 225 y_elem[1] = y_i[yi + 1]; in BLAS_csymv_c_s() 227 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csymv_c_s() 228 tmp2[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_csymv_c_s() 269 y_elem[0] = y_i[yi]; in BLAS_csymv_c_s() 272 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csymv_c_s() [all …]
|
H A D | BLAS_zsymv_z_d.c | 83 double y_elem[2]; in BLAS_zsymv_z_d() local 148 y_elem[0] = y_i[yi]; in BLAS_zsymv_z_d() 152 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_z_d() 154 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zsymv_z_d() 225 y_elem[0] = y_i[yi]; in BLAS_zsymv_z_d() 226 y_elem[1] = y_i[yi + 1]; in BLAS_zsymv_z_d() 229 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_z_d() 231 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zsymv_z_d() 271 y_elem[0] = y_i[yi]; in BLAS_zsymv_z_d() 275 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_z_d() [all …]
|
H A D | BLAS_zsymv_d_d_x.c | 96 double y_elem[2]; in BLAS_zsymv_d_d_x() local 161 y_elem[0] = y_i[yi]; in BLAS_zsymv_d_d_x() 165 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_d_d_x() 167 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zsymv_d_d_x() 258 y_elem[0] = y_i[yi]; in BLAS_zsymv_d_d_x() 262 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_d_d_x() 264 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zsymv_d_d_x() 309 double y_elem[2]; in BLAS_zsymv_d_d_x() local 374 y_elem[0] = y_i[yi]; in BLAS_zsymv_d_d_x() 741 a2 = y_elem[0] - a1; in BLAS_zsymv_d_d_x() [all …]
|
H A D | BLAS_csymv_s_s_x.c | 94 float y_elem[2]; in BLAS_csymv_s_s_x() local 162 tmp1[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csymv_s_s_x() 163 tmp1[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_csymv_s_s_x() 220 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csymv_s_s_x() 221 tmp2[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_csymv_s_s_x() 255 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csymv_s_s_x() 256 tmp2[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_csymv_s_s_x() 371 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_csymv_s_s_x() 373 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_csymv_s_s_x() 468 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_csymv_s_s_x() [all …]
|
H A D | BLAS_zsymv_c_c.c | 83 double y_elem[2]; in BLAS_zsymv_c_c() local 148 y_elem[0] = y_i[yi]; in BLAS_zsymv_c_c() 152 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_c_c() 154 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zsymv_c_c() 237 y_elem[0] = y_i[yi]; in BLAS_zsymv_c_c() 238 y_elem[1] = y_i[yi + 1]; in BLAS_zsymv_c_c() 241 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_c_c() 243 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zsymv_c_c() 289 y_elem[0] = y_i[yi]; in BLAS_zsymv_c_c() 293 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_c_c() [all …]
|
H A D | BLAS_zsymv_c_z.c | 83 double y_elem[2]; in BLAS_zsymv_c_z() local 148 y_elem[0] = y_i[yi]; in BLAS_zsymv_c_z() 152 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_c_z() 154 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zsymv_c_z() 237 y_elem[0] = y_i[yi]; in BLAS_zsymv_c_z() 238 y_elem[1] = y_i[yi + 1]; in BLAS_zsymv_c_z() 241 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_c_z() 243 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zsymv_c_z() 289 y_elem[0] = y_i[yi]; in BLAS_zsymv_c_z() 293 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsymv_c_z() [all …]
|
/dports/math/xblas/xblas-1.0.248/testing/test-gemv/ |
H A D | BLAS_gemv_testgen.c | 81 float y_elem; in BLAS_sgemv_testgen() local 205 double y_elem; in BLAS_dgemv_testgen() local 329 float y_elem[2]; in BLAS_cgemv_testgen() local 454 double y_elem[2]; in BLAS_zgemv_testgen() local 579 float y_elem[2]; in BLAS_cgemv_s_s_testgen() local 704 float y_elem[2]; in BLAS_cgemv_s_c_testgen() local 829 float y_elem[2]; in BLAS_cgemv_c_s_testgen() local 954 double y_elem[2]; in BLAS_zgemv_d_d_testgen() local 1329 double y_elem; in BLAS_dgemv_s_s_testgen() local 1453 double y_elem; in BLAS_dgemv_s_d_testgen() local [all …]
|
/dports/math/xblas/xblas-1.0.248/testing/test-gemv2/ |
H A D | BLAS_gemv2_testgen.c | 82 float y_elem; in BLAS_sgemv2_testgen() local 207 double y_elem; in BLAS_dgemv2_testgen() local 332 float y_elem[2]; in BLAS_cgemv2_testgen() local 458 double y_elem[2]; in BLAS_zgemv2_testgen() local 584 float y_elem[2]; in BLAS_cgemv2_s_s_testgen() local 710 float y_elem[2]; in BLAS_cgemv2_s_c_testgen() local 836 float y_elem[2]; in BLAS_cgemv2_c_s_testgen() local 962 double y_elem[2]; in BLAS_zgemv2_d_d_testgen() local 1340 double y_elem; in BLAS_dgemv2_s_s_testgen() local 1465 double y_elem; in BLAS_dgemv2_s_d_testgen() local [all …]
|
/dports/math/xblas/xblas-1.0.248/src/hemv/ |
H A D | BLAS_chemv_c_s.c | 83 float y_elem[2]; in BLAS_chemv_c_s() local 154 tmp1[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_chemv_c_s() 155 tmp1[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_chemv_c_s() 256 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_chemv_c_s() 257 tmp2[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_chemv_c_s() 311 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_chemv_c_s() 312 tmp2[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_chemv_c_s() 418 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_chemv_c_s() 419 tmp2[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_chemv_c_s() 473 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_chemv_c_s() [all …]
|
H A D | BLAS_zhemv_z_d.c | 83 double y_elem[2]; in BLAS_zhemv_z_d() local 151 y_elem[0] = y_i[yi]; in BLAS_zhemv_z_d() 155 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zhemv_z_d() 157 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zhemv_z_d() 254 y_elem[0] = y_i[yi]; in BLAS_zhemv_z_d() 312 y_elem[0] = y_i[yi]; in BLAS_zhemv_z_d() 316 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zhemv_z_d() 318 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zhemv_z_d() 479 y_elem[0] = y_i[yi]; in BLAS_zhemv_z_d() 483 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zhemv_z_d() [all …]
|
/dports/math/xblas/xblas-1.0.248/src/sbmv/ |
H A D | BLAS_csbmv_s_s.c | 134 float y_elem[2]; in BLAS_csbmv_s_s() local 204 y_elem[0] = y_i[yi]; in BLAS_csbmv_s_s() 207 tmp1[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csbmv_s_s() 208 tmp1[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_csbmv_s_s() 275 y_elem[0] = y_i[yi]; in BLAS_csbmv_s_s() 278 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csbmv_s_s() 279 tmp2[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_csbmv_s_s() 319 y_elem[0] = y_i[yi]; in BLAS_csbmv_s_s() 355 y_elem[0] = y_i[yi]; in BLAS_csbmv_s_s() 358 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_csbmv_s_s() [all …]
|
H A D | BLAS_zsbmv_d_d.c | 134 double y_elem[2]; in BLAS_zsbmv_d_d() local 204 y_elem[0] = y_i[yi]; in BLAS_zsbmv_d_d() 208 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsbmv_d_d() 210 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zsbmv_d_d() 276 y_elem[0] = y_i[yi]; in BLAS_zsbmv_d_d() 280 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsbmv_d_d() 282 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zsbmv_d_d() 321 y_elem[0] = y_i[yi]; in BLAS_zsbmv_d_d() 357 y_elem[0] = y_i[yi]; in BLAS_zsbmv_d_d() 361 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zsbmv_d_d() [all …]
|
/dports/math/xblas/xblas-1.0.248/src/gemv2/ |
H A D | BLAS_cgemv2_c_s.c | 68 float y_elem[2]; in BLAS_cgemv2_c_s() local 142 tmp1[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_cgemv2_c_s() 143 tmp1[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_cgemv2_c_s() 277 tmp1[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_cgemv2_c_s() 278 tmp1[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_cgemv2_c_s() 333 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_cgemv2_c_s() 334 tmp2[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_cgemv2_c_s() 472 tmp1[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_cgemv2_c_s() 473 tmp1[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_cgemv2_c_s() 528 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_cgemv2_c_s() [all …]
|
H A D | BLAS_zgemv2_z_d.c | 68 double y_elem[2]; in BLAS_zgemv2_z_d() local 139 y_elem[0] = y_i[iy]; in BLAS_zgemv2_z_d() 140 y_elem[1] = y_i[iy + 1]; in BLAS_zgemv2_z_d() 143 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zgemv2_z_d() 145 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zgemv2_z_d() 277 y_elem[0] = y_i[iy]; in BLAS_zgemv2_z_d() 278 y_elem[1] = y_i[iy + 1]; in BLAS_zgemv2_z_d() 338 y_elem[0] = y_i[iy]; in BLAS_zgemv2_z_d() 339 y_elem[1] = y_i[iy + 1]; in BLAS_zgemv2_z_d() 482 y_elem[0] = y_i[iy]; in BLAS_zgemv2_z_d() [all …]
|
/dports/math/xblas/xblas-1.0.248/src/hbmv/ |
H A D | BLAS_chbmv_c_s.c | 139 float y_elem[2]; in BLAS_chbmv_c_s() local 216 tmp1[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_chbmv_c_s() 217 tmp1[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_chbmv_c_s() 332 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_chbmv_c_s() 333 tmp2[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_chbmv_c_s() 395 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_chbmv_c_s() 396 tmp2[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_chbmv_c_s() 518 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_chbmv_c_s() 519 tmp2[1] = y_elem[0] * beta_i[1] + y_elem[1] * beta_i[0]; in BLAS_chbmv_c_s() 581 tmp2[0] = y_elem[0] * beta_i[0] - y_elem[1] * beta_i[1]; in BLAS_chbmv_c_s() [all …]
|
H A D | BLAS_zhbmv_z_d.c | 139 double y_elem[2]; in BLAS_zhbmv_z_d() local 213 y_elem[0] = y_i[yi]; in BLAS_zhbmv_z_d() 217 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zhbmv_z_d() 219 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zhbmv_z_d() 330 y_elem[0] = y_i[yi]; in BLAS_zhbmv_z_d() 396 y_elem[0] = y_i[yi]; in BLAS_zhbmv_z_d() 400 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zhbmv_z_d() 402 (double) y_elem[0] * beta_i[1] + (double) y_elem[1] * beta_i[0]; in BLAS_zhbmv_z_d() 587 y_elem[0] = y_i[yi]; in BLAS_zhbmv_z_d() 591 (double) y_elem[0] * beta_i[0] - (double) y_elem[1] * beta_i[1]; in BLAS_zhbmv_z_d() [all …]
|