| /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")
|