Searched defs:get_l_sq_wghts_sin_tf_t_to_w (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | mp2_grids.F | 901 …SUBROUTINE get_l_sq_wghts_sin_tf_t_to_w(num_integ_points, tau_tj, weights_sin_tf_t_to_w, omega_tj,… subroutine
915 CHARACTER(LEN=*), PARAMETER :: routineN = 'get_l_sq_wghts_sin_tf_t_to_w', & argument
916 routineP = moduleN//':'//routineN
918 INTEGER :: handle, iii, info, jjj, jquad, lwork, &
919 num_x_nodes
920 INTEGER, ALLOCATABLE, DIMENSION(:) :: iwork
921 REAL(KIND=dp) :: chi2_min_jquad, multiplicator, omega
922 … REAL(KIND=dp), ALLOCATABLE, DIMENSION(:) :: sing_values, tau_wj_work, vec_UTy, work, &
923 work_array, x_values, y_values
924 REAL(KIND=dp), ALLOCATABLE, DIMENSION(:, :) :: mat_A, mat_SinvVSinvSigma, &
[all …]
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | mp2_weights.F | 893 …SUBROUTINE get_l_sq_wghts_sin_tf_t_to_w(num_integ_points, tau_tj, weights_sin_tf_t_to_w, omega_tj,… subroutine
907 CHARACTER(LEN=*), PARAMETER :: routineN = 'get_l_sq_wghts_sin_tf_t_to_w', & argument
908 routineP = moduleN//':'//routineN
910 INTEGER :: handle, iii, info, jjj, jquad, lwork, &
911 num_x_nodes
912 INTEGER, ALLOCATABLE, DIMENSION(:) :: iwork
913 REAL(KIND=dp) :: chi2_min_jquad, multiplicator, omega
914 … REAL(KIND=dp), ALLOCATABLE, DIMENSION(:) :: sing_values, tau_wj_work, vec_UTy, work, &
915 work_array, x_values, y_values
916 REAL(KIND=dp), ALLOCATABLE, DIMENSION(:, :) :: mat_A, mat_SinvVSinvSigma, &
[all …]
|