mp2_reset Subroutine

private subroutine mp2_reset(this)

Reset both MP2 components to zero

Type Bound

mp2_energy_t

Arguments

Type IntentOptional Attributes Name
class(mp2_energy_t), intent(inout) :: this

Called by

proc~~mp2_reset~~CalledByGraph proc~mp2_reset mp2_energy_t%mp2_reset proc~energy_reset energy_t%energy_reset proc~energy_reset->proc~mp2_reset proc~do_fragment_work do_fragment_work proc~do_fragment_work->proc~energy_reset proc~result_reset calculation_result_t%result_reset proc~result_reset->proc~energy_reset interface~do_fragment_work do_fragment_work interface~do_fragment_work->proc~do_fragment_work proc~result_destroy calculation_result_t%result_destroy proc~result_destroy->proc~result_reset proc~compute_energy_and_forces compute_energy_and_forces proc~compute_energy_and_forces->proc~result_destroy proc~hessian_coordinator hessian_coordinator proc~hessian_coordinator->proc~result_destroy proc~hessian_worker hessian_worker proc~hessian_worker->proc~result_destroy proc~node_worker node_worker proc~node_worker->interface~do_fragment_work proc~serial_fragment_processor serial_fragment_processor proc~serial_fragment_processor->interface~do_fragment_work proc~serial_gmbe_pie_processor serial_gmbe_pie_processor proc~serial_gmbe_pie_processor->interface~do_fragment_work proc~unfragmented_calculation unfragmented_calculation proc~unfragmented_calculation->interface~do_fragment_work proc~unfragmented_calculation->proc~result_destroy proc~xtb_calc_hessian xtb_method_t%xtb_calc_hessian proc~xtb_calc_hessian->proc~result_destroy interface~hessian_coordinator hessian_coordinator interface~hessian_coordinator->proc~hessian_coordinator interface~hessian_worker hessian_worker interface~hessian_worker->proc~hessian_worker interface~node_worker node_worker interface~node_worker->proc~node_worker interface~serial_fragment_processor serial_fragment_processor interface~serial_fragment_processor->proc~serial_fragment_processor interface~unfragmented_calculation unfragmented_calculation interface~unfragmented_calculation->proc~unfragmented_calculation proc~gmbe_run_serial gmbe_context_t%gmbe_run_serial proc~gmbe_run_serial->proc~serial_gmbe_pie_processor

Source Code

   subroutine mp2_reset(this)
      !! Reset both MP2 components to zero
      class(mp2_energy_t), intent(inout) :: this
      this%ss = 0.0_dp
      this%os = 0.0_dp
   end subroutine mp2_reset