| subroutine, public fist_pol_scf::fist_pol_evaluate |
( |
type(atomic_kind_type), dimension(:), pointer | atomic_kind_set, |
|
|
type(multipole_type), pointer | multipoles, |
|
|
type(ewald_environment_type), pointer | ewald_env, |
|
|
type(ewald_pw_type), pointer | ewald_pw, |
|
|
type(fist_nonbond_env_type), pointer | fist_nonbond_env, |
|
|
type(cell_type), pointer | cell, |
|
|
type(particle_type), dimension(:), pointer | particle_set, |
|
|
type(distribution_1d_type), pointer | local_particles, |
|
|
type(fist_energy_type), pointer | thermo, |
|
|
real(kind=dp) | vg_coulomb, |
|
|
real(kind=dp) | pot_nonbond, |
|
|
real(kind=dp), dimension(:, :) | f_nonbond, |
|
|
real(kind=dp), dimension(:, :) | fg_coulomb, |
|
|
logical, intent(in) | use_virial, |
|
|
real(kind=dp), dimension(3, 3) | pv_g, |
|
|
real(kind=dp), dimension(3, 3) | pv_nonbond, |
|
|
type(section_vals_type), pointer | mm_section, |
|
|
integer | do_ipol ) |