/dports/graphics/blender/blender-2.91.0/source/blender/blenlib/tests/ |
H A D | BLI_math_matrix_test.cc | 13 float matrix_a[4][4] = { in TEST() local 19 transpose_m4(matrix_a); in TEST() 26 interp_m4_m4m4(result, matrix_i, matrix_a, 0.0f); in TEST() 29 interp_m4_m4m4(result, matrix_i, matrix_a, 1.0f); in TEST() 30 EXPECT_M4_NEAR(result, matrix_a, epsilon); in TEST() 42 interp_m4_m4m4(result, matrix_i, matrix_a, 0.5f); in TEST() 57 float matrix_a[3][3] = { in TEST() local 62 transpose_m3(matrix_a); in TEST() 74 interp_m3_m3m3(result, matrix_a, matrix_b, 0.0f); in TEST() 75 EXPECT_M3_NEAR(result, matrix_a, 1e-5); in TEST() [all …]
|
/dports/math/dbcsr/dbcsr-2.1.0/src/ops/ |
H A D | dbcsr_operations.F | 1005 data_size=dbcsr_max_row_size(matrix_a)*dbcsr_max_col_size(matrix_a)) 1308 matrix_b%index(1:SIZE(matrix_a%index)) = matrix_a%index(:) 1310 IF (matrix_a%nze > dbcsr_get_data_size(matrix_a)) & 2662 DO a_blk = matrix_a%row_p(a_row) + 1, matrix_a%row_p(a_row + 1) 2748 DO a_blk = matrix_a%row_p(row) + 1, matrix_a%row_p(row + 1) 3074 …CALL dbcsr_find_column(col, lb_row_blk(2), matrix_a%row_p(row + 1), matrix_a%col_i, matrix_a%blk_p… 3084 matrix_a%wms(iw)%lastblk = matrix_a%wms(iw)%lastblk + 1 3085 matrix_a%wms(iw)%row_i(matrix_a%wms(iw)%lastblk) = row 3086 matrix_a%wms(iw)%col_i(matrix_a%wms(iw)%lastblk) = col 3087 matrix_a%wms(iw)%blk_p(matrix_a%wms(iw)%lastblk) = lb_a_val [all …]
|
H A D | dbcsr_tests.F | 241 CALL test_binary_io(matrix_a, io_unit) 244 CALL dbcsr_release(matrix_a) 251 SUBROUTINE test_binary_io(matrix_a, io_unit) argument 254 TYPE(dbcsr_type) :: matrix_a local 265 pre = dbcsr_checksum(matrix_a, pos=.TRUE.) 267 CALL dbcsr_binary_write(matrix_a, file_name) 274 CALL dbcsr_add(matrix_a_read, matrix_a, -1.0_dp, 1.0_dp) 354 dbcsr_row_block_sizes(matrix_a)) 357 dbcsr_col_block_sizes(matrix_a)) 382 data_type=dbcsr_get_data_type(matrix_a)) [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/fm/ |
H A D | cp_cfm_basic_linalg.F | 83 a => matrix_a%local_data 122 a => matrix_a%local_data 185 a => matrix_a%local_data 297 a => matrix_a%local_data 404 a => matrix_a%local_data 509 a => matrix_a%local_data 586 a => matrix_a%local_data 629 a => matrix_a%local_data 660 a => matrix_a%local_data 696 a => matrix_a%local_data [all …]
|
H A D | cp_fm_basic_linalg.F | 129 a => matrix_a%local_data 132 IF (matrix_a%use_sp) THEN 220 aa => matrix_a%local_data 297 a => matrix_a%local_data 396 a => matrix_a%local_data 525 a => matrix_a%local_data 573 a => matrix_a%local_data 627 a => matrix_a%local_data 678 a => matrix_a%local_data 941 nz = SIZE(matrix_a, 1) [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/fm/ |
H A D | cp_cfm_basic_linalg.F | 83 a => matrix_a%local_data 122 a => matrix_a%local_data 185 a => matrix_a%local_data 297 a => matrix_a%local_data 404 a => matrix_a%local_data 509 a => matrix_a%local_data 586 a => matrix_a%local_data 629 a => matrix_a%local_data 660 a => matrix_a%local_data 696 a => matrix_a%local_data [all …]
|
H A D | cp_fm_basic_linalg.F | 128 a => matrix_a%local_data 131 IF (matrix_a%use_sp) THEN 219 aa => matrix_a%local_data 296 a => matrix_a%local_data 395 a => matrix_a%local_data 524 a => matrix_a%local_data 572 a => matrix_a%local_data 626 a => matrix_a%local_data 677 a => matrix_a%local_data 925 nz = SIZE(matrix_a, 1) [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/exts/dbcsr/src/ops/ |
H A D | dbcsr_operations.F | 1009 data_size=dbcsr_max_row_size(matrix_a)*dbcsr_max_col_size(matrix_a)) 1321 matrix_b%index(1:SIZE(matrix_a%index)) = matrix_a%index(:) 1323 IF (matrix_a%nze > dbcsr_get_data_size(matrix_a)) & 2689 DO a_blk = matrix_a%row_p(a_row) + 1, matrix_a%row_p(a_row + 1) 2786 DO a_blk = matrix_a%row_p(row) + 1, matrix_a%row_p(row + 1) 3115 …CALL dbcsr_find_column(col, lb_row_blk(2), matrix_a%row_p(row + 1), matrix_a%col_i, matrix_a%blk_p… 3125 matrix_a%wms(iw)%lastblk = matrix_a%wms(iw)%lastblk + 1 3126 matrix_a%wms(iw)%row_i(matrix_a%wms(iw)%lastblk) = row 3127 matrix_a%wms(iw)%col_i(matrix_a%wms(iw)%lastblk) = col 3128 matrix_a%wms(iw)%blk_p(matrix_a%wms(iw)%lastblk) = lb_a_val [all …]
|
H A D | dbcsr_tests.F | 241 CALL test_binary_io(matrix_a, io_unit) 244 CALL dbcsr_release(matrix_a) 251 SUBROUTINE test_binary_io(matrix_a, io_unit) argument 254 TYPE(dbcsr_type) :: matrix_a local 267 pre = dbcsr_checksum(matrix_a, pos=.TRUE.) 269 CALL dbcsr_binary_write(matrix_a, file_name) 276 CALL dbcsr_add(matrix_a_read, matrix_a, -1.0_dp, 1.0_dp) 357 dbcsr_row_block_sizes(matrix_a)) 360 dbcsr_col_block_sizes(matrix_a)) 385 data_type=dbcsr_get_data_type(matrix_a)) [all …]
|
H A D | dbcsr_csr_conversions.F | 252 IF (.NOT. matrix_a%valid) & 255 CALL csr_create_new(matrix_b, matrix_a%nrows_total, matrix_a%ncols_total, & 256 matrix_a%nze_total, matrix_a%nze_local, matrix_a%nrows_local, & 257 matrix_a%mp_group, matrix_a%nzval_local%data_type) 259 matrix_b%mp_group = matrix_a%mp_group 263 IF (matrix_a%has_indices) THEN 269 IF (matrix_a%has_mapping) THEN 270 map = matrix_a%dbcsr_mapping 299 SUBROUTINE csr_copy(matrix_b, matrix_a) argument 313 IF (.NOT. matrix_a%valid) & [all …]
|
/dports/graphics/py-geomdl/geomdl-5.2.10/geomdl/ |
H A D | _linalg.py | 14 def doolittle(matrix_a): argument 23 matrix_u = [[0.0 for _ in range(len(matrix_a))] for _ in range(len(matrix_a))] 24 matrix_l = [[0.0 for _ in range(len(matrix_a))] for _ in range(len(matrix_a))] 27 for i in range(0, len(matrix_a)): 28 for k in range(i, len(matrix_a)): 30 …matrix_u[i][k] = float(matrix_a[i][k] - sum([matrix_l[i][j] * matrix_u[j][k] for j in range(0, i)]… 35 …matrix_l[k][i] = float(matrix_a[k][i] - sum([matrix_l[k][j] * matrix_u[j][i] for j in range(0, i)]…
|
/dports/graphics/libpillowfight/libpillowfight-dae21f97de872e4ad2e94f1b0fc53302a00259fd/src/pillowfight/ |
H A D | _sobel.c | 111 assert(matrix_a->size.x == matrix_b->size.x); in compute_intensity_matrix() 112 assert(matrix_a->size.y == matrix_b->size.y); in compute_intensity_matrix() 114 out = pf_dbl_matrix_new(matrix_a->size.x, matrix_a->size.y); in compute_intensity_matrix() 116 for (x = 0 ; x < matrix_a->size.x ; x++) { in compute_intensity_matrix() 117 for (y = 0 ; y < matrix_a->size.y ; y++) { in compute_intensity_matrix() 121 a = PF_MATRIX_GET(matrix_a, x, y); in compute_intensity_matrix() 141 assert(matrix_a->size.x == matrix_b->size.x); in compute_direction_matrix() 144 out = pf_dbl_matrix_new(matrix_a->size.x, matrix_a->size.y); in compute_direction_matrix() 146 for (x = 0 ; x < matrix_a->size.x ; x++) { in compute_direction_matrix() 147 for (y = 0 ; y < matrix_a->size.y ; y++) { in compute_direction_matrix() [all …]
|
/dports/graphics/py-pypillowfight/pypillowfight-0.3.0/src/pillowfight/ |
H A D | _sobel.c | 111 assert(matrix_a->size.x == matrix_b->size.x); in compute_intensity_matrix() 112 assert(matrix_a->size.y == matrix_b->size.y); in compute_intensity_matrix() 114 out = pf_dbl_matrix_new(matrix_a->size.x, matrix_a->size.y); in compute_intensity_matrix() 116 for (x = 0 ; x < matrix_a->size.x ; x++) { in compute_intensity_matrix() 117 for (y = 0 ; y < matrix_a->size.y ; y++) { in compute_intensity_matrix() 121 a = PF_MATRIX_GET(matrix_a, x, y); in compute_intensity_matrix() 141 assert(matrix_a->size.x == matrix_b->size.x); in compute_direction_matrix() 144 out = pf_dbl_matrix_new(matrix_a->size.x, matrix_a->size.y); in compute_direction_matrix() 146 for (x = 0 ; x < matrix_a->size.x ; x++) { in compute_direction_matrix() 147 for (y = 0 ; y < matrix_a->size.y ; y++) { in compute_direction_matrix() [all …]
|
/dports/math/dbcsr/dbcsr-2.1.0/src/mm/ |
H A D | dbcsr_multiply_api.F | 41 alpha, matrix_a, matrix_b, beta, matrix_c, & argument 47 TYPE(dbcsr_type), INTENT(IN) :: matrix_a, matrix_b local 65 alpha, matrix_a, matrix_b, beta, matrix_c, & argument 71 TYPE(dbcsr_type), INTENT(IN) :: matrix_a, matrix_b local 80 IF (dbcsr_get_data_type(matrix_a) .EQ. dbcsr_type_real_4 .AND. & 84 dbcsr_scalar(REAL(alpha, real_4)), matrix_a, matrix_b, & 90 ELSEIF (dbcsr_get_data_type(matrix_a) .EQ. dbcsr_type_real_8 .AND. & 105 alpha, matrix_a, matrix_b, beta, matrix_c, & argument 111 TYPE(dbcsr_type), INTENT(IN) :: matrix_a, matrix_b local 129 alpha, matrix_a, matrix_b, beta, matrix_c, & argument [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/exts/dbcsr/src/mm/ |
H A D | dbcsr_multiply_api.F | 41 alpha, matrix_a, matrix_b, beta, matrix_c, & argument 47 TYPE(dbcsr_type), INTENT(IN) :: matrix_a, matrix_b local 65 alpha, matrix_a, matrix_b, beta, matrix_c, & argument 71 TYPE(dbcsr_type), INTENT(IN) :: matrix_a, matrix_b local 83 IF (dbcsr_get_data_type(matrix_a) .EQ. dbcsr_type_real_4 .AND. & 87 dbcsr_scalar(REAL(alpha, real_4)), matrix_a, matrix_b, & 93 ELSEIF (dbcsr_get_data_type(matrix_a) .EQ. dbcsr_type_real_8 .AND. & 108 alpha, matrix_a, matrix_b, beta, matrix_c, & argument 114 TYPE(dbcsr_type), INTENT(IN) :: matrix_a, matrix_b local 132 alpha, matrix_a, matrix_b, beta, matrix_c, & argument [all …]
|
/dports/graphics/cogl/cogl-1.22.8/tests/conform/ |
H A D | test-euler-quaternion.c | 42 CoglMatrix matrix_a, matrix_b; in test_euler_quaternion() local 45 cogl_matrix_init_identity (&matrix_a); in test_euler_quaternion() 46 cogl_matrix_rotate (&matrix_a, -30.0f, 0.0f, 1.0f, 0.0f); in test_euler_quaternion() 47 cogl_matrix_rotate (&matrix_a, 40.0f, 1.0f, 0.0f, 0.0f); in test_euler_quaternion() 48 cogl_matrix_rotate (&matrix_a, 50.0f, 0.0f, 0.0f, 1.0f); in test_euler_quaternion() 55 COMPARE_MATRICES (&matrix_a, &matrix_b); in test_euler_quaternion() 61 COMPARE_MATRICES (&matrix_a, &matrix_b); in test_euler_quaternion() 68 COMPARE_MATRICES (&matrix_a, &matrix_b); in test_euler_quaternion() 75 COMPARE_MATRICES (&matrix_a, &matrix_b); in test_euler_quaternion()
|
/dports/x11-wm/muffin/muffin-4.8.0/cogl/tests/conform/ |
H A D | test-euler-quaternion.c | 42 CoglMatrix matrix_a, matrix_b; in test_euler_quaternion() local 45 cogl_matrix_init_identity (&matrix_a); in test_euler_quaternion() 46 cogl_matrix_rotate (&matrix_a, -30.0f, 0.0f, 1.0f, 0.0f); in test_euler_quaternion() 47 cogl_matrix_rotate (&matrix_a, 40.0f, 1.0f, 0.0f, 0.0f); in test_euler_quaternion() 48 cogl_matrix_rotate (&matrix_a, 50.0f, 0.0f, 0.0f, 1.0f); in test_euler_quaternion() 55 COMPARE_MATRICES (&matrix_a, &matrix_b); in test_euler_quaternion() 61 COMPARE_MATRICES (&matrix_a, &matrix_b); in test_euler_quaternion() 68 COMPARE_MATRICES (&matrix_a, &matrix_b); in test_euler_quaternion() 75 COMPARE_MATRICES (&matrix_a, &matrix_b); in test_euler_quaternion()
|
/dports/science/latte/LATTE-1.2.2/src/ |
H A D | sp2pure_sparse.F90 | 154 CALL dbcsr_init(matrix_a) 162 CALL dbcsr_create (matrix_a,"Matrix A ",& 180 DO j=1, dbcsr_nblkcols_total(matrix_a) 181 DO i=1, dbcsr_nblkrows_total(matrix_a) 214 CALL dbcsr_finalize(matrix_a, error=error) 244 CALL dbcsr_multiply('n','n', MINUSONE, matrix_a, matrix_a, ONE,& 249 CALL dbcsr_multiply('n','n', MINUSONE, matrix_a, matrix_a, ONE,& 304 CALL dbcsr_replicate_all(matrix_a, error) 309 DO j=1, dbcsr_nblkcols_total(matrix_a) 310 DO i=1, dbcsr_nblkrows_total(matrix_a) [all …]
|
/dports/math/dbcsr/dbcsr-2.1.0/tests/ |
H A D | dbcsr_test_csr_conversions.F | 34 TYPE(dbcsr_type) :: matrix_a variable 118 CALL csr_conversion_test(matrix_a, matrix_b, norm, 0.0_dp) 120 CALL csr_conversion_test(matrix_a, matrix_b, norm_eps, eps) 130 CALL dbcsr_release(matrix_a) 173 SUBROUTINE make_random_dbcsr_matrix(matrix_a, group, & argument 176 TYPE(dbcsr_type), INTENT(OUT) :: matrix_a local 192 CALL dbcsr_create(matrix=matrix_a, & 209 DO row = 1, dbcsr_nblkrows_total(matrix_a) 210 DO col = 1, dbcsr_nblkcols_total(matrix_a) 219 CALL dbcsr_put_block(matrix_a, row_s, col_s, values(1:nze)) [all …]
|
H A D | dbcsr_test_add.F | 190 a_r = dbcsr_nfullrows_total(matrix_a); a_c = dbcsr_nfullcols_total(matrix_a) 198 CALL dbcsr_to_dense_local(matrix_a, data_a) 209 matrix_a, matrix_b, & 215 CALL dbcsr_release(matrix_a) 230 matrix_a, matrix_b, & argument 276 dist_a, dbcsr_get_matrix_type(matrix_a), & 277 row_blk_size_obj=matrix_a%row_blk_size, & 278 col_blk_size_obj=matrix_a%col_blk_size, & 279 data_type=dbcsr_get_data_type(matrix_a)) 281 CALL dbcsr_redistribute(matrix_a, m_a) [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/exts/dbcsr/tests/ |
H A D | dbcsr_test_csr_conversions.F | 34 TYPE(dbcsr_type) :: matrix_a variable 118 CALL csr_conversion_test(matrix_a, matrix_b, norm, 0.0_dp) 120 CALL csr_conversion_test(matrix_a, matrix_b, norm_eps, eps) 130 CALL dbcsr_release(matrix_a) 173 SUBROUTINE make_random_dbcsr_matrix(matrix_a, group, & argument 176 TYPE(dbcsr_type), INTENT(OUT) :: matrix_a local 192 CALL dbcsr_create(matrix=matrix_a, & 209 DO row = 1, dbcsr_nblkrows_total(matrix_a) 210 DO col = 1, dbcsr_nblkcols_total(matrix_a) 219 CALL dbcsr_put_block(matrix_a, row_s, col_s, values(1:nze)) [all …]
|
/dports/math/dbcsr/dbcsr-2.1.0/examples/ |
H A D | dbcsr_example_2.F | 23 TYPE(dbcsr_type) :: matrix_a variable 95 CALL dbcsr_create(matrix=matrix_a, & 120 DO row = 1, dbcsr_nblkrows_total(matrix_a) 121 DO col = MAX(row - 1, 1), MIN(row + 1, dbcsr_nblkcols_total(matrix_a)) 125 CALL dbcsr_get_stored_coordinates(matrix_a, row_s, col_s, node_holds_blk) 135 CALL dbcsr_put_block(matrix_a, row_s, col_s, values(1:nze)) 143 CALL dbcsr_finalize(matrix_a) 147 CALL dbcsr_print(matrix_a) 151 CALL dbcsr_release(matrix_a)
|
H A D | dbcsr_example_3.F | 23 TYPE(dbcsr_type) :: matrix_a, matrix_b, matrix_c variable 96 CALL dbcsr_create(matrix=matrix_a, & 129 DO row = 1, dbcsr_nblkrows_total(matrix_a) 130 DO col = MAX(row - 1, 1), MIN(row + 1, dbcsr_nblkcols_total(matrix_a)) 132 CALL dbcsr_get_stored_coordinates(matrix_a, row_s, col_s, node_holds_blk) 136 CALL dbcsr_put_block(matrix_a, row_s, col_s, values(1:nze)) 161 CALL dbcsr_finalize(matrix_a) 167 CALL dbcsr_multiply('N', 'N', 1.0D0, matrix_a, matrix_b, 0.0D0, matrix_c) 171 CALL dbcsr_print(matrix_a) 177 CALL dbcsr_release(matrix_a)
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/exts/dbcsr/examples/ |
H A D | dbcsr_example_2.F | 23 TYPE(dbcsr_type) :: matrix_a variable 95 CALL dbcsr_create(matrix=matrix_a, & 120 DO row = 1, dbcsr_nblkrows_total(matrix_a) 121 DO col = MAX(row - 1, 1), MIN(row + 1, dbcsr_nblkcols_total(matrix_a)) 125 CALL dbcsr_get_stored_coordinates(matrix_a, row_s, col_s, node_holds_blk) 135 CALL dbcsr_put_block(matrix_a, row_s, col_s, values(1:nze)) 143 CALL dbcsr_finalize(matrix_a) 147 CALL dbcsr_print(matrix_a) 151 CALL dbcsr_release(matrix_a)
|
H A D | dbcsr_example_3.F | 23 TYPE(dbcsr_type) :: matrix_a, matrix_b, matrix_c variable 96 CALL dbcsr_create(matrix=matrix_a, & 129 DO row = 1, dbcsr_nblkrows_total(matrix_a) 130 DO col = MAX(row - 1, 1), MIN(row + 1, dbcsr_nblkcols_total(matrix_a)) 132 CALL dbcsr_get_stored_coordinates(matrix_a, row_s, col_s, node_holds_blk) 136 CALL dbcsr_put_block(matrix_a, row_s, col_s, values(1:nze)) 161 CALL dbcsr_finalize(matrix_a) 167 CALL dbcsr_multiply('N', 'N', 1.0D0, matrix_a, matrix_b, 0.0D0, matrix_c) 171 CALL dbcsr_print(matrix_a) 177 CALL dbcsr_release(matrix_a)
|