Home
last modified time | relevance | path

Searched refs:mat_munu_local (Results 1 – 2 of 2) sorted by relevance

/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dmp2_ri_grad.F189 TYPE(dbcsr_p_type), DIMENSION(:), POINTER :: G_P_ia, G_P_ia_beta, mat_munu_local, & local
299 ALLOCATE (mat_munu_local(my_group_L_size))
304 ALLOCATE (mat_munu_local(L_counter)%matrix)
307 CALL dbcsr_create(mat_munu_local(L_counter)%matrix, template=mat_munu%matrix, &
309 CALL dbcsr_copy(mat_munu_local(L_counter)%matrix, mat_munu%matrix)
310 CALL dbcsr_set(mat_munu_local(L_counter)%matrix, 0.0_dp)
333 … first_c=my_group_L_start, last_c=my_group_L_end, mat_ab=mat_munu_local, &
351 CALL update_lagrangian(mat_munu_local(L_counter), matrix_P_inu, Lag_mu_i_1, &
356 CALL update_lagrangian(mat_munu_local(L_counter), matrix_P_inu, Lag_mu_i_1, &
375 CALL dbcsr_deallocate_matrix_set(mat_munu_local)
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dmp2_ri_grad.F188 TYPE(dbcsr_p_type), DIMENSION(:), POINTER :: G_P_ia, G_P_ia_beta, mat_munu_local, & local
298 ALLOCATE (mat_munu_local(my_group_L_size))
303 ALLOCATE (mat_munu_local(L_counter)%matrix)
306 CALL dbcsr_create(mat_munu_local(L_counter)%matrix, template=mat_munu%matrix, &
308 CALL dbcsr_copy(mat_munu_local(L_counter)%matrix, mat_munu%matrix)
309 CALL dbcsr_set(mat_munu_local(L_counter)%matrix, 0.0_dp)
332 … first_c=my_group_L_start, last_c=my_group_L_end, mat_ab=mat_munu_local, &
350 CALL update_lagrangian(mat_munu_local(L_counter), matrix_P_inu, Lag_mu_i_1, &
355 CALL update_lagrangian(mat_munu_local(L_counter), matrix_P_inu, Lag_mu_i_1, &
374 CALL dbcsr_deallocate_matrix_set(mat_munu_local)