Searched defs:get_l_sq_wghts_cos_tf_t_to_w (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | mp2_weights.F | 756 …SUBROUTINE get_l_sq_wghts_cos_tf_t_to_w(num_integ_points, tau_tj, weights_cos_tf_t_to_w, omega_tj,… subroutine
770 CHARACTER(LEN=*), PARAMETER :: routineN = 'get_l_sq_wghts_cos_tf_t_to_w', & argument
771 routineP = moduleN//':'//routineN
773 INTEGER :: handle, iii, info, jjj, jquad, lwork, &
774 num_x_nodes
775 INTEGER, ALLOCATABLE, DIMENSION(:) :: iwork
776 REAL(KIND=dp) :: chi2_min_jquad, multiplicator, omega
777 … REAL(KIND=dp), ALLOCATABLE, DIMENSION(:) :: sing_values, tau_wj_work, vec_UTy, work, &
778 work_array, x_values, y_values
779 REAL(KIND=dp), ALLOCATABLE, DIMENSION(:, :) :: mat_A, mat_SinvVSinvSigma, &
[all …]
|
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | mp2_grids.F | 768 …SUBROUTINE get_l_sq_wghts_cos_tf_t_to_w(num_integ_points, tau_tj, weights_cos_tf_t_to_w, omega_tj,… subroutine
782 CHARACTER(LEN=*), PARAMETER :: routineN = 'get_l_sq_wghts_cos_tf_t_to_w', & argument
783 routineP = moduleN//':'//routineN
785 INTEGER :: handle, iii, info, jjj, jquad, lwork, &
786 num_x_nodes
787 INTEGER, ALLOCATABLE, DIMENSION(:) :: iwork
788 REAL(KIND=dp) :: multiplicator, omega
789 … REAL(KIND=dp), ALLOCATABLE, DIMENSION(:) :: sing_values, tau_wj_work, vec_UTy, work, &
790 x_values, y_values
791 REAL(KIND=dp), ALLOCATABLE, DIMENSION(:, :) :: mat_A, mat_SinvVSinvSigma, &
[all …]
|