wrapper to request MM energies
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(subsystem_type), | intent(inout), | dimension(:) | :: | subsystems | array of subsystems associated with client codes |
|
| real(kind=dp), | intent(out) | :: | energy | energy from external programs |
subroutine mimic_collect_energies(subsystems, energy)
!> array of subsystems associated with client codes
type(subsystem_type), dimension(:), intent(inout) :: subsystems
!> energy from external programs
real(dp), intent(out) :: energy
call timer_start("mimic_collect_energies")
call communicator%gather_energies(energy, subsystems)
call timer_stop
end subroutine mimic_collect_energies