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