Home
last modified time | relevance | path

Searched refs:negf_control (Results 1 – 8 of 8) sorted by relevance

/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dnegf_control_types.F140 ALLOCATE (negf_control)
161 IF (ASSOCIATED(negf_control)) THEN
162 IF (ALLOCATED(negf_control%atomlist_S)) DEALLOCATE (negf_control%atomlist_S)
163 … IF (ALLOCATED(negf_control%atomlist_S_screening)) DEALLOCATE (negf_control%atomlist_S_screening)
185 DEALLOCATE (negf_control)
340 IF (negf_control%integr_max_points < negf_control%integr_min_points) &
341 negf_control%integr_max_points = negf_control%integr_min_points
352 IF (negf_control%eta < 0.0_dp) THEN
366 temp_min = negf_control%eta/(pi*REAL(2*negf_control%delta_npoles - 1, kind=dp))*kelvin
409negf_control%atomlist_S_screening(1:natoms_total) = negf_control%atomlist_S(1:natoms_total)
[all …]
H A Dnegf_methods.F252 negf_control=negf_control, &
283 negf_env=negf_env, negf_control=negf_control, &
521 negf_control=negf_control, &
538 negf_control=negf_control, &
733 v_shift_max = negf_control%v_shift + negf_control%v_shift_offset
757 negf_control=negf_control, &
768 negf_control=negf_control, &
786 negf_control=negf_control, &
1071 negf_control=negf_control, &
1089 negf_control=negf_control, &
[all …]
H A Dnegf_subgroup_types.F72 …SUBROUTINE negf_sub_env_create(sub_env, negf_control, blacs_env_global, blacs_grid_layout, blacs_r… argument
74 TYPE(negf_control_type), POINTER :: negf_control local
95 is_split = negf_control%nprocs > 0 .AND. negf_control%nprocs*2 <= para_env_global%num_pe
101 … group_distribution=sub_env%group_distribution, subgroup_min_size=negf_control%nprocs)
H A Dnegf_env_types.F164 TYPE(negf_control_type), POINTER :: negf_control local
211 ncontacts = SIZE(negf_control%contacts)
214 IF (negf_control%contacts(icontact)%force_env_index > n_force_env) THEN
243 IF (negf_control%contacts(icontact)%force_env_index > 0) THEN
250 eps_geometry=negf_control%eps_geometry, &
267 IF (negf_control%contacts(icontact)%force_env_index > 0) THEN
285 IF (negf_control%contacts(icontact)%force_env_index <= 0) THEN
294 CALL negf_env_device_init_matrices(negf_env, negf_control, sub_env, qs_env)
718 TYPE(negf_control_type), POINTER :: negf_control local
740 IF (ALLOCATED(negf_control%atomlist_S_screening)) THEN
[all …]
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dnegf_control_types.F140 ALLOCATE (negf_control)
161 IF (ASSOCIATED(negf_control)) THEN
162 IF (ALLOCATED(negf_control%atomlist_S)) DEALLOCATE (negf_control%atomlist_S)
163 … IF (ALLOCATED(negf_control%atomlist_S_screening)) DEALLOCATE (negf_control%atomlist_S_screening)
185 DEALLOCATE (negf_control)
340 IF (negf_control%integr_max_points < negf_control%integr_min_points) &
341 negf_control%integr_max_points = negf_control%integr_min_points
352 IF (negf_control%eta < 0.0_dp) THEN
366 temp_min = negf_control%eta/(pi*REAL(2*negf_control%delta_npoles - 1, kind=dp))*kelvin
409negf_control%atomlist_S_screening(1:natoms_total) = negf_control%atomlist_S(1:natoms_total)
[all …]
H A Dnegf_methods.F252 negf_control=negf_control, &
283 negf_env=negf_env, negf_control=negf_control, &
521 negf_control=negf_control, &
538 negf_control=negf_control, &
733 v_shift_max = negf_control%v_shift + negf_control%v_shift_offset
757 negf_control=negf_control, &
768 negf_control=negf_control, &
786 negf_control=negf_control, &
1071 negf_control=negf_control, &
1089 negf_control=negf_control, &
[all …]
H A Dnegf_subgroup_types.F72 …SUBROUTINE negf_sub_env_create(sub_env, negf_control, blacs_env_global, blacs_grid_layout, blacs_r… argument
74 TYPE(negf_control_type), POINTER :: negf_control local
95 is_split = negf_control%nprocs > 0 .AND. negf_control%nprocs*2 <= para_env_global%num_pe
101 … group_distribution=sub_env%group_distribution, subgroup_min_size=negf_control%nprocs)
H A Dnegf_env_types.F164 TYPE(negf_control_type), POINTER :: negf_control local
211 ncontacts = SIZE(negf_control%contacts)
214 IF (negf_control%contacts(icontact)%force_env_index > n_force_env) THEN
243 IF (negf_control%contacts(icontact)%force_env_index > 0) THEN
250 eps_geometry=negf_control%eps_geometry, &
267 IF (negf_control%contacts(icontact)%force_env_index > 0) THEN
285 IF (negf_control%contacts(icontact)%force_env_index <= 0) THEN
294 CALL negf_env_device_init_matrices(negf_env, negf_control, sub_env, qs_env)
718 TYPE(negf_control_type), POINTER :: negf_control local
740 IF (ALLOCATED(negf_control%atomlist_S_screening)) THEN
[all …]