Home
last modified time | relevance | path

Searched refs:matrix_a (Results 1 – 25 of 199) sorted by relevance

12345678

/dports/graphics/blender/blender-2.91.0/source/blender/blenlib/tests/
H A DBLI_math_matrix_test.cc13 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 Ddbcsr_operations.F1005 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 Ddbcsr_tests.F241 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 Dcp_cfm_basic_linalg.F83 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 Dcp_fm_basic_linalg.F129 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 Dcp_cfm_basic_linalg.F83 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 Dcp_fm_basic_linalg.F128 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 Ddbcsr_operations.F1009 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 Ddbcsr_tests.F241 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 Ddbcsr_csr_conversions.F252 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.py14 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.c111 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.c111 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 Ddbcsr_multiply_api.F41 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 Ddbcsr_multiply_api.F41 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 Dtest-euler-quaternion.c42 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 Dtest-euler-quaternion.c42 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 Dsp2pure_sparse.F90154 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 Ddbcsr_test_csr_conversions.F34 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 Ddbcsr_test_add.F190 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 Ddbcsr_test_csr_conversions.F34 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 Ddbcsr_example_2.F23 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 Ddbcsr_example_3.F23 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 Ddbcsr_example_2.F23 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 Ddbcsr_example_3.F23 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)

12345678