Home
last modified time | relevance | path

Searched refs:dimen_RI (Results 1 – 25 of 33) sorted by relevance

12

/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dmp2_ri_2c.F197 dimen_RI_red = dimen_RI
257 … CALL cp_gemm('N', 'T', dimen_RI, dimen_RI, dimen_RI, 1.0_dp, fm_matrix_L_RI_metric(1, 1)%matrix, &
269 … CALL cp_gemm('T', 'T', dimen_RI, dimen_RI, dimen_RI, 1.0_dp, fm_matrix_S_inv_work, fm_matrix_L, &
763 dimen_RI = 0
767 dimen_RI = dimen_RI + nsgf
813 min_mem_for_QK = REAL(dimen_RI, KIND=dp)*dimen_RI*3.0_dp*8.0_dp/1024_dp/1024_dp
958 DO iiB = 1, dimen_RI
1180 DO LLL = 1, dimen_RI
1262 DO LLL = 1, dimen_RI
1470 …CALL cp_cfm_gemm("N", "C", dimen_RI, dimen_RI, dimen_RI, cone, cfm_matrix_S_tmp, cfm_matrix_S_tmp,…
[all …]
H A Drpa_util.F300 IF (dimen_RI == dimen_RI_red) THEN
436 IF (dimen_RI == dimen_RI_red) THEN
460 IF (dimen_RI == dimen_RI_red) THEN
513 IF (dimen_RI == dimen_RI_red) THEN
808 CALL cp_gemm(transa="T", transb="N", m=dimen_RI, n=dimen_RI, k=dimen_ia, alpha=alpha, &
819 …actual_flop_rate = 2.0_dp*REAL(dimen_ia, KIND=dp)*dimen_RI*REAL(dimen_RI, KIND=dp)/(MAX(0.01_dp, t…
841 INTEGER, INTENT(IN) :: dimen_RI local
869 IF (j_global == i_global .AND. i_global <= dimen_RI) THEN
892 INTEGER, INTENT(IN) :: dimen_RI local
930 ALLOCATE (Q_log(dimen_RI))
[all …]
H A Dmp2_ri_gpw.F433 external_i_aL, dimen_RI, local_j_aL(:, :, jjB), dimen_RI, &
1794 local_j_aL(1:dimen_RI, 1:my_B_size, jjB), dimen_RI, &
1799 local_j_aL(1:dimen_RI, 1:my_B_size_beta, jjB), dimen_RI, &
1803 local_i_aL(1:dimen_RI, 1:my_B_size, jjB), dimen_RI, &
1824 local_j_aL(1:dimen_RI, 1:my_B_size, jjB), dimen_RI, &
1839 local_j_aL(1:dimen_RI, 1:my_B_size_beta, jjB), dimen_RI, &
1863 local_i_aL(1:dimen_RI, 1:my_B_size, jjB), dimen_RI, &
1878 local_i_aL(1:dimen_RI, 1:my_B_size, iiB), dimen_RI, &
1896 external_ab(1:dimen_RI, 1:rec_B_size), dimen_RI, &
2653 external_i_aL, dimen_RI, local_k_aL(:, :, 1), dimen_RI, &
[all …]
H A Drpa_kpoints.F147 ALLOCATE (trace_Qomega(dimen_RI))
160 dimen_RI, ikp, nkp, ikp_local, para_env)
180 dimen_RI, 1, 1, &
272 CALL cp_cfm_gemm('N', 'N', dimen_RI, dimen_RI, dimen_RI, z_one, cfm_mat_Q, cfm_mat_L, &
276 CALL cp_cfm_gemm('C', 'N', dimen_RI, dimen_RI, dimen_RI, z_one, cfm_mat_L, cfm_mat_work, &
381 INTEGER, INTENT(IN) :: dimen_RI local
407 IF (j_global == i_global .AND. i_global <= dimen_RI) THEN
439 INTEGER, INTENT(IN) :: dimen_RI local
460 ALLOCATE (Q_log(dimen_RI))
468 IF (j_global == i_global .AND. i_global <= dimen_RI) THEN
[all …]
H A Dbse.F385 INTEGER :: dimen_RI, homo, virtual, dimen_ia local
424 IF (j_global == i_global .AND. i_global <= dimen_RI) THEN
431 CALL cp_fm_cholesky_decompose(matrix=fm_mat_Q_static_bse_gemm, n=dimen_RI, info_out=info_chol)
439 CALL cp_gemm(transa="N", transb="N", m=homo**2, n=dimen_RI, k=dimen_RI, alpha=1.0_dp, &
445 CALL cp_gemm(transa="N", transb="N", m=dimen_ia, n=dimen_RI, k=dimen_RI, alpha=1.0_dp, &
452 dimen_RI, para_env)
455 dimen_RI, para_env)
458 dimen_RI, para_env)
480 color_sub, small_size, big_size, dimen_RI, para_env) argument
485 … INTEGER :: color_sub, small_size, big_size, dimen_RI local
[all …]
H A Drpa_gw_kpoints.F92 dimen_RI, num_integ_points, jquad, & argument
187 IF (j_global == i_global .AND. i_global <= dimen_RI) THEN
198 CALL cp_cfm_gemm('N', 'C', dimen_RI, dimen_RI, dimen_RI, z_one, cfm_mat_Q, cfm_mat_L, &
202 CALL cp_cfm_gemm('N', 'N', dimen_RI, dimen_RI, dimen_RI, z_one, cfm_mat_L, cfm_mat_work, &
210 CALL cp_cfm_gemm('N', 'C', dimen_RI, dimen_RI, dimen_RI, z_one, cfm_mat_L, cfm_mat_L, &
235 ALLOCATE (atom_from_RI_index(dimen_RI))
236 DO LLL = 1, dimen_RI
445 dimen_RI, num_integ_points, jquad, & argument
494 IF (j_global == i_global .AND. i_global <= dimen_RI) THEN
507 CALL cp_cfm_gemm('N', 'C', dimen_RI, dimen_RI, dimen_RI, z_one, cfm_mat_Q, cfm_mat_L, &
[all …]
H A Drpa_axk.F94 SUBROUTINE compute_axk_ener(qs_env, fm_mat_Q, fm_mat_Q_gemm, dimen_RI, dimen_ia, & argument
102 INTEGER, INTENT(IN) :: dimen_RI, dimen_ia local
141 ALLOCATE (eigenval(dimen_RI))
183 DO iib = 1, dimen_RI
199 CALL cp_gemm(transa="N", transb="T", m=dimen_RI, n=dimen_RI, k=dimen_RI, alpha=1.0_dp, &
245 CALL cp_gemm(transa="N", transb="N", m=dimen_ia, n=dimen_RI, k=dimen_RI, alpha=1.0_dp, &
284 iitmp = get_limit(dimen_RI, ngroup, color_sub)
292 my_group_L_end, my_group_L_size, dimen_RI)
H A Dmp2_ri_grad_util.F226 CALL create_group_dist(gd_P, para_env_sub%num_pe, dimen_RI)
251 ncol_global=dimen_RI, para_env=para_env)
272 ncol_global=dimen_RI, para_env=para_env)
278 … CALL array2fm(mp2_env%ri_grad%Gamma_PQ, fm_struct, dimen_RI, dimen_RI, para_env, proc_map, &
287 … CALL array2fm(mp2_env%ri_grad%Gamma_PQ_beta, fm_struct, dimen_RI, dimen_RI, para_env, proc_map, &
304 ncol_global=dimen_RI, para_env=para_env)
310 CALL cp_gemm(transa="N", transb="T", m=dimen_ia, n=dimen_RI, k=dimen_RI, alpha=1.0_dp, &
324 CALL cp_gemm(transa="T", transb="N", m=dimen_RI, n=dimen_RI, k=dimen_ia, alpha=1.0_dp, &
334 CALL cp_gemm(transa="N", transb="T", m=dimen_RI, n=dimen_RI, k=dimen_RI, alpha=1.0_dp, &
367 CALL fm2array(mp2_env%ri_grad%Gamma_PQ, dimen_RI, dimen_RI, para_env, proc_map, &
[all …]
H A Drpa_main.F664 homo, virtual, dimen_RI, dimen_RI_red, dimen_ia, dimen_nm_gw, &
688 homo, virtual, dimen_RI, dimen_RI_red, dimen_ia, dimen_nm_gw, &
905 INTEGER, INTENT(IN) :: color_sub, ngroup, integ_group_size, dimen_RI, dimen_ia, & local
961 ncol_global=dimen_RI, para_env=para_env_RPA)
965 row_col_proc_ratio = dimen_ia_for_block_size/dimen_RI
1001 ncol_block_mat = dimen_RI/grid_2D(2)/2
1014 ncol_global=dimen_RI, para_env=para_env_RPA, &
1077 ncol_global=dimen_RI, para_env=para_env_RPA, &
1098 ncol_global=dimen_RI, para_env=para_env_RPA)
1110 ncol_global=dimen_RI, para_env=para_env_RPA)
[all …]
H A Dmp2_optimize_ri_basis.F254 natom, nkind, kind_of, index_table_RI, dimen_RI, &
326 qs_env, natom, dimen, dimen_RI, homo, virtual, &
335 qs_env, nkind, natom, dimen, dimen_RI, homo, virtual, &
388 qs_env, natom, dimen, dimen_RI, homo, virtual, &
413 qs_env, natom, dimen, dimen_RI, homo, virtual, &
457 qs_env, nkind, natom, dimen, dimen_RI, homo, virtual, &
591 qs_env, nkind, natom, dimen, dimen_RI, homo, virtual, & argument
663 qs_env, natom, dimen, dimen_RI, homo, virtual, &
725 qs_env, natom, dimen, dimen_RI, homo, virtual, & argument
764 CALL libint_ri_mp2(dimen, dimen_RI, homo, natom, mp2_biel, mp2_env, C, &
[all …]
H A Dmp2_integrals.F173 … dimen_RI, dimen_RI_red, qs_env, para_env, para_env_sub, color_sub, & argument
193 INTEGER, INTENT(OUT) :: dimen_RI, dimen_RI_red local
428 … fm_matrix_L, ngroup, color_sub, dimen_RI, dimen_RI_red, kpoints, mo_coeff, &
486 CALL grep_Lcols(para_env_L, dimen_RI, fm_matrix_L, &
500 itmp = get_limit(dimen_RI, para_env_sub%num_pe, para_env_sub%mepos)
510 "RI_INFO| Auxiliary basis set size:", dimen_RI
516 mem_for_iaK = dimen_RI*REAL(homo, KIND=dp)*virtual*8.0_dp/(1024_dp**2)
523 mem_for_iaK = dimen_RI*REAL(nmo, KIND=dp)*gw_corr_lev_total*8.0_dp/(1024_dp**2)
1414 SUBROUTINE grep_Lcols(para_env, dimen_RI, fm_matrix_L, & argument
1417 INTEGER, INTENT(IN) :: dimen_RI local
[all …]
H A Dmp2_gpw.F147 INTEGER :: blacs_grid_layout, color_sub, comm_sub, dimen, dimen_RI, dimen_RI_red, & local
403 …BIb_C, BIb_C_gw, BIb_C_bse_ij, BIb_C_bse_ab, gd_array, gd_B_virtual, dimen_RI, dimen_RI_red, qs_en…
421 dimen_RI, dimen_RI_red, qs_env, para_env, para_env_sub, &
556 … Eigenval, nmo, homo, dimen_RI, dimen_RI_red, gw_corr_lev_occ, gw_corr_lev_virt, &
576 … Eigenval, nmo, homo, dimen_RI, dimen_RI_red, gw_corr_lev_occ, gw_corr_lev_virt, &
645 mo_coeff, nmo, homo, dimen_RI, Eigenval, &
652 mo_coeff, nmo, homo, dimen_RI, Eigenval, &
H A Dmp2_eri_gpw.F163 …SUBROUTINE mp2_eri_2c_integrate_gpw(qs_env, para_env_sub, dimen_RI, mo_coeff, my_group_L_start, my… argument
168 INTEGER, INTENT(IN) :: dimen_RI local
212 ALLOCATE (wf_vector(dimen_RI))
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dmp2_ri_2c.F199 dimen_RI_red = dimen_RI
259 … CALL cp_gemm('N', 'T', dimen_RI, dimen_RI, dimen_RI, 1.0_dp, fm_matrix_L_RI_metric(1, 1)%matrix, &
271 … CALL cp_gemm('T', 'T', dimen_RI, dimen_RI, dimen_RI, 1.0_dp, fm_matrix_S_inv_work, fm_matrix_L, &
765 dimen_RI = 0
769 dimen_RI = dimen_RI + nsgf
815 min_mem_for_QK = REAL(dimen_RI, KIND=dp)*dimen_RI*3.0_dp*8.0_dp/1024_dp/1024_dp
960 DO iiB = 1, dimen_RI
1182 DO LLL = 1, dimen_RI
1264 DO LLL = 1, dimen_RI
1472 …CALL cp_cfm_gemm("N", "C", dimen_RI, dimen_RI, dimen_RI, cone, cfm_matrix_S_tmp, cfm_matrix_S_tmp,…
[all …]
H A Dmp2_ri_gpw.F433 external_i_aL, dimen_RI, local_j_aL(:, :, jjB), dimen_RI, &
1794 local_j_aL(1:dimen_RI, 1:my_B_size, jjB), dimen_RI, &
1799 local_j_aL(1:dimen_RI, 1:my_B_size_beta, jjB), dimen_RI, &
1803 local_i_aL(1:dimen_RI, 1:my_B_size, jjB), dimen_RI, &
1824 local_j_aL(1:dimen_RI, 1:my_B_size, jjB), dimen_RI, &
1839 local_j_aL(1:dimen_RI, 1:my_B_size_beta, jjB), dimen_RI, &
1863 local_i_aL(1:dimen_RI, 1:my_B_size, jjB), dimen_RI, &
1878 local_i_aL(1:dimen_RI, 1:my_B_size, iiB), dimen_RI, &
1896 external_ab(1:dimen_RI, 1:rec_B_size), dimen_RI, &
2653 external_i_aL, dimen_RI, local_k_aL(:, :, 1), dimen_RI, &
[all …]
H A Drpa_kpoints.F147 ALLOCATE (trace_Qomega(dimen_RI))
160 dimen_RI, ikp, nkp, ikp_local, para_env)
180 dimen_RI, 1, 1, &
272 CALL cp_cfm_gemm('N', 'N', dimen_RI, dimen_RI, dimen_RI, z_one, cfm_mat_Q, cfm_mat_L, &
276 CALL cp_cfm_gemm('C', 'N', dimen_RI, dimen_RI, dimen_RI, z_one, cfm_mat_L, cfm_mat_work, &
381 INTEGER, INTENT(IN) :: dimen_RI local
407 IF (j_global == i_global .AND. i_global <= dimen_RI) THEN
439 INTEGER, INTENT(IN) :: dimen_RI local
460 ALLOCATE (Q_log(dimen_RI))
468 IF (j_global == i_global .AND. i_global <= dimen_RI) THEN
[all …]
H A Drpa_util.F497 ALLOCATE (row_from_LLL(dimen_RI))
505 DO LLL = 1, dimen_RI
556 IF (dimen_RI == dimen_RI_red) THEN
775 IF (dimen_RI == dimen_RI_red) THEN
799 IF (dimen_RI == dimen_RI_red) THEN
852 IF (dimen_RI == dimen_RI_red) THEN
1242 CALL cp_gemm(transa="T", transb="N", m=dimen_RI, n=dimen_RI, k=dimen_ia, alpha=alpha, &
1253 …actual_flop_rate = 2.0_dp*REAL(dimen_ia, KIND=dp)*dimen_RI*REAL(dimen_RI, KIND=dp)/(MAX(0.01_dp, t…
1275 INTEGER, INTENT(IN) :: dimen_RI local
1354 ALLOCATE (Q_log(dimen_RI))
[all …]
H A Dbse.F385 INTEGER :: dimen_RI, homo, virtual, dimen_ia local
424 IF (j_global == i_global .AND. i_global <= dimen_RI) THEN
431 CALL cp_fm_cholesky_decompose(matrix=fm_mat_Q_static_bse_gemm, n=dimen_RI, info_out=info_chol)
439 CALL cp_gemm(transa="N", transb="N", m=homo**2, n=dimen_RI, k=dimen_RI, alpha=1.0_dp, &
445 CALL cp_gemm(transa="N", transb="N", m=dimen_ia, n=dimen_RI, k=dimen_RI, alpha=1.0_dp, &
452 dimen_RI, para_env)
455 dimen_RI, para_env)
458 dimen_RI, para_env)
480 color_sub, small_size, big_size, dimen_RI, para_env) argument
485 … INTEGER :: color_sub, small_size, big_size, dimen_RI local
[all …]
H A Drpa_gw_kpoints.F212 CALL cp_cfm_gemm('N', 'C', dimen_RI, dimen_RI, dimen_RI, z_one, cfm_mat_Q, cfm_mat_L, &
216 CALL cp_cfm_gemm('N', 'N', dimen_RI, dimen_RI, dimen_RI, z_one, cfm_mat_L, cfm_mat_work, &
224 CALL cp_cfm_gemm('N', 'C', dimen_RI, dimen_RI, dimen_RI, z_one, cfm_mat_L, cfm_mat_L, &
249 ALLOCATE (atom_from_RI_index(dimen_RI))
250 DO LLL = 1, dimen_RI
521 CALL cp_cfm_gemm('N', 'C', dimen_RI, dimen_RI, dimen_RI, z_one, cfm_mat_Q, cfm_mat_L, &
525 CALL cp_cfm_gemm('N', 'N', dimen_RI, dimen_RI, dimen_RI, z_one, cfm_mat_L, cfm_mat_work, &
2640 CALL cp_gemm('N', 'T', dimen_RI, dimen_RI, dimen_RI, 1.0_dp, &
2643 CALL cp_gemm('N', 'T', dimen_RI, dimen_RI, dimen_RI, 1.0_dp, &
2646 CALL cp_gemm('N', 'T', dimen_RI, dimen_RI, dimen_RI, -1.0_dp, &
[all …]
H A Drpa_axk.F94 SUBROUTINE compute_axk_ener(qs_env, fm_mat_Q, fm_mat_Q_gemm, dimen_RI, dimen_ia, & argument
102 INTEGER, INTENT(IN) :: dimen_RI, dimen_ia local
141 ALLOCATE (eigenval(dimen_RI))
183 DO iib = 1, dimen_RI
199 CALL cp_gemm(transa="N", transb="T", m=dimen_RI, n=dimen_RI, k=dimen_RI, alpha=1.0_dp, &
245 CALL cp_gemm(transa="N", transb="N", m=dimen_ia, n=dimen_RI, k=dimen_RI, alpha=1.0_dp, &
284 iitmp = get_limit(dimen_RI, ngroup, color_sub)
292 my_group_L_end, my_group_L_size, dimen_RI)
H A Dmp2_ri_grad_util.F226 CALL create_group_dist(gd_P, para_env_sub%num_pe, dimen_RI)
251 ncol_global=dimen_RI, para_env=para_env)
272 ncol_global=dimen_RI, para_env=para_env)
278 … CALL array2fm(mp2_env%ri_grad%Gamma_PQ, fm_struct, dimen_RI, dimen_RI, para_env, proc_map, &
287 … CALL array2fm(mp2_env%ri_grad%Gamma_PQ_beta, fm_struct, dimen_RI, dimen_RI, para_env, proc_map, &
304 ncol_global=dimen_RI, para_env=para_env)
310 CALL cp_gemm(transa="N", transb="T", m=dimen_ia, n=dimen_RI, k=dimen_RI, alpha=1.0_dp, &
324 CALL cp_gemm(transa="T", transb="N", m=dimen_RI, n=dimen_RI, k=dimen_ia, alpha=1.0_dp, &
334 CALL cp_gemm(transa="N", transb="T", m=dimen_RI, n=dimen_RI, k=dimen_RI, alpha=1.0_dp, &
367 CALL fm2array(mp2_env%ri_grad%Gamma_PQ, dimen_RI, dimen_RI, para_env, proc_map, &
[all …]
H A Drpa_main.F668 homo, virtual, dimen_RI, dimen_RI_red, dimen_ia, dimen_nm_gw, &
692 homo, virtual, dimen_RI, dimen_RI_red, dimen_ia, dimen_nm_gw, &
913 INTEGER, INTENT(IN) :: color_sub, ngroup, integ_group_size, dimen_RI, dimen_ia, & local
977 ncol_global=dimen_RI, para_env=para_env_RPA)
981 row_col_proc_ratio = dimen_ia_for_block_size/dimen_RI
1017 ncol_block_mat = dimen_RI/grid_2D(2)/2
1030 ncol_global=dimen_RI, para_env=para_env_RPA, &
1093 ncol_global=dimen_RI, para_env=para_env_RPA, &
1114 ncol_global=dimen_RI, para_env=para_env_RPA)
1126 ncol_global=dimen_RI, para_env=para_env_RPA)
[all …]
H A Dmp2_integrals.F489 CALL grep_Lcols(para_env_L, dimen_RI, fm_matrix_L, &
513 "RI_INFO| Auxiliary basis set size:", dimen_RI
888 dimen_RI, cut_RI, unit_nr, &
902 dimen_RI, cut_RI, unit_nr, &
1553 SUBROUTINE grep_Lcols(para_env, dimen_RI, fm_matrix_L, & argument
1576 ALLOCATE (my_Lrows(dimen_RI, my_group_L_size))
1930 ALLOCATE (atom_from_RI_index(dimen_RI))
1932 DO LLL = 1, dimen_RI
2622 ALLOCATE (atom_from_RI_index(dimen_RI))
2624 DO LLL = 1, dimen_RI
[all …]
H A Dmp2_optimize_ri_basis.F254 natom, nkind, kind_of, index_table_RI, dimen_RI, &
326 qs_env, natom, dimen, dimen_RI, homo, virtual, &
335 qs_env, nkind, natom, dimen, dimen_RI, homo, virtual, &
388 qs_env, natom, dimen, dimen_RI, homo, virtual, &
413 qs_env, natom, dimen, dimen_RI, homo, virtual, &
457 qs_env, nkind, natom, dimen, dimen_RI, homo, virtual, &
591 qs_env, nkind, natom, dimen, dimen_RI, homo, virtual, & argument
663 qs_env, natom, dimen, dimen_RI, homo, virtual, &
725 qs_env, natom, dimen, dimen_RI, homo, virtual, & argument
764 CALL libint_ri_mp2(dimen, dimen_RI, homo, natom, mp2_biel, mp2_env, C, &
[all …]
H A Dmp2_eri_gpw.F162 …SUBROUTINE mp2_eri_2c_integrate_gpw(qs_env, para_env_sub, dimen_RI, mo_coeff, my_group_L_start, my… argument
167 INTEGER, INTENT(IN) :: dimen_RI local
211 ALLOCATE (wf_vector(dimen_RI))

12