/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | ewald_environment_types.F | 56 LOGICAL :: do_multipoles ! Flag for using the multipole code component 134 rcut, do_multipoles, max_multipole, do_ipol, max_ipol_iter, & argument 144 LOGICAL, INTENT(OUT), OPTIONAL :: do_multipoles local 156 IF (PRESENT(do_multipoles)) do_multipoles = ewald_env%do_multipoles 373 …CALL section_vals_val_get(multipole_section, "_SECTION_PARAMETERS_", l_val=ewald_env%do_multipoles) 376 IF (ewald_env%do_multipoles) THEN 397 IF (ewald_env%do_multipoles) THEN 464 ewald_env%do_multipoles = .FALSE.
|
H A D | fist_force.F | 194 CALL ewald_env_get(ewald_env, ewald_type=ewald_type, do_multipoles=do_multipoles, & 341 IF (shell_present .AND. do_multipoles) THEN 346 IF (.NOT. do_multipoles) THEN 377 IF (do_multipoles) THEN 383 IF (do_multipoles) THEN 416 IF (do_multipoles) THEN 427 IF (do_multipoles) THEN 443 IF (do_multipoles) THEN 454 IF (do_multipoles) THEN 478 IF (.NOT. do_multipoles) THEN [all …]
|
H A D | fist_environment.F | 243 LOGICAL :: do_multipoles local 305 CALL ewald_env_get(ewald_env, do_multipoles=do_multipoles, & 307 IF (do_multipoles) &
|
H A D | qmmm_per_elpot.F | 352 LOGICAL :: do_multipoles local 372 CALL ewald_env_get(ewald_env, ewald_type=ewald_type, do_multipoles=do_multipoles, & 374 IF (do_multipoles) &
|
H A D | fist_nonbond_force.F | 103 LOGICAL :: all_terms, do_multipoles, full_nl, & local 142 do_multipoles=do_multipoles, & 239 IF (do_multipoles) THEN 300 CPASSERT(.NOT. do_multipoles) 666 LOGICAL :: a_is_shell, b_is_shell, do_multipoles, & local 689 CALL ewald_env_get(ewald_env, alpha=alpha, do_multipoles=do_multipoles, &
|
H A D | qmmm_tb_methods.F | 325 … LOGICAL :: defined, do_dftb, do_multipoles, do_xtb, & local 398 … CALL ewald_env_get(ewald_env, ewald_type=ewald_type, do_multipoles=do_multipoles, do_ipol=do_ipol) 399 IF (do_multipoles) CPABORT("No multipole force fields allowed in TB QM/MM") 844 … LOGICAL :: defined, do_dftb, do_multipoles, do_xtb, & local 945 … CALL ewald_env_get(ewald_env, ewald_type=ewald_type, do_multipoles=do_multipoles, do_ipol=do_ipol) 946 IF (do_multipoles) CPABORT("No multipole force fields allowed in DFTB QM/MM")
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | ewald_environment_types.F | 56 LOGICAL :: do_multipoles ! Flag for using the multipole code component 134 rcut, do_multipoles, max_multipole, do_ipol, max_ipol_iter, & argument 144 LOGICAL, INTENT(OUT), OPTIONAL :: do_multipoles local 156 IF (PRESENT(do_multipoles)) do_multipoles = ewald_env%do_multipoles 373 …CALL section_vals_val_get(multipole_section, "_SECTION_PARAMETERS_", l_val=ewald_env%do_multipoles) 376 IF (ewald_env%do_multipoles) THEN 397 IF (ewald_env%do_multipoles) THEN 464 ewald_env%do_multipoles = .FALSE.
|
H A D | fist_force.F | 194 CALL ewald_env_get(ewald_env, ewald_type=ewald_type, do_multipoles=do_multipoles, & 341 IF (shell_present .AND. do_multipoles) THEN 346 IF (.NOT. do_multipoles) THEN 377 IF (do_multipoles) THEN 383 IF (do_multipoles) THEN 416 IF (do_multipoles) THEN 427 IF (do_multipoles) THEN 443 IF (do_multipoles) THEN 454 IF (do_multipoles) THEN 478 IF (.NOT. do_multipoles) THEN [all …]
|
H A D | fist_environment.F | 243 LOGICAL :: do_multipoles local 305 CALL ewald_env_get(ewald_env, do_multipoles=do_multipoles, & 307 IF (do_multipoles) &
|
H A D | qmmm_per_elpot.F | 352 LOGICAL :: do_multipoles local 372 CALL ewald_env_get(ewald_env, ewald_type=ewald_type, do_multipoles=do_multipoles, & 374 IF (do_multipoles) &
|
H A D | fist_nonbond_force.F | 103 LOGICAL :: all_terms, do_multipoles, full_nl, & local 142 do_multipoles=do_multipoles, & 239 IF (do_multipoles) THEN 300 CPASSERT(.NOT. do_multipoles) 666 LOGICAL :: a_is_shell, b_is_shell, do_multipoles, & local 689 CALL ewald_env_get(ewald_env, alpha=alpha, do_multipoles=do_multipoles, &
|
H A D | qmmm_tb_methods.F | 325 … LOGICAL :: defined, do_dftb, do_multipoles, do_xtb, & local 398 … CALL ewald_env_get(ewald_env, ewald_type=ewald_type, do_multipoles=do_multipoles, do_ipol=do_ipol) 399 IF (do_multipoles) CPABORT("No multipole force fields allowed in TB QM/MM") 844 … LOGICAL :: defined, do_dftb, do_multipoles, do_xtb, & local 945 … CALL ewald_env_get(ewald_env, ewald_type=ewald_type, do_multipoles=do_multipoles, do_ipol=do_ipol) 946 IF (do_multipoles) CPABORT("No multipole force fields allowed in DFTB QM/MM")
|