teth_harm Subroutine

public subroutine teth_harm(r, teth, enrg)

Calculates energy for harmonic tether interaction.

Arguments

Type IntentOptional Attributes Name
real(kind=rp), intent(in) :: r
type(tether_t), intent(in) :: teth
real(kind=rp), intent(out) :: enrg

Called by

proc~~teth_harm~~CalledByGraph proc~teth_harm teth_harm proc~ia_get_tether_energy ia_get_tether_energy proc~ia_get_tether_energy->proc~teth_harm proc~ia_calc_atm_tether_energy ia_calc_atm_tether_energy proc~ia_calc_atm_tether_energy->proc~ia_get_tether_energy proc~ia_calc_tether_energy ia_calc_tether_energy proc~ia_calc_tether_energy->proc~ia_get_tether_energy proc~ia_calc_energy ia_calc_energy proc~ia_calc_energy->proc~ia_calc_tether_energy proc~mcm_crnk mcm_crnk proc~mcm_crnk->proc~ia_calc_atm_tether_energy proc~mcm_dspl mcm_dspl proc~mcm_dspl->proc~ia_calc_atm_tether_energy proc~mcm_sc_crnk mcm_sc_crnk proc~mcm_sc_crnk->proc~ia_calc_atm_tether_energy proc~mcs_run mcs_run proc~mcs_run->proc~ia_calc_energy proc~mcs_run->proc~mcm_crnk proc~mcs_run->proc~mcm_dspl proc~mcs_run->proc~mcm_sc_crnk program~main main program~main->proc~mcs_run