ang_harm Subroutine

public subroutine ang_harm(ctheta, specs, enrg)

Calculates energy for harmonic angular interaction. params(1) = k

Arguments

Type IntentOptional Attributes Name
real(kind=rp), intent(in) :: ctheta
type(ia_specs_t), intent(in) :: specs
real(kind=rp), intent(out) :: enrg

Called by

proc~~ang_harm~~CalledByGraph proc~ang_harm ang_harm proc~ia_get_angle_energy ia_get_angle_energy proc~ia_get_angle_energy->proc~ang_harm proc~ia_calc_angle_energy ia_calc_angle_energy proc~ia_calc_angle_energy->proc~ia_get_angle_energy proc~ia_calc_atm_angle_energy ia_calc_atm_angle_energy proc~ia_calc_atm_angle_energy->proc~ia_get_angle_energy proc~ia_calc_energy ia_calc_energy proc~ia_calc_energy->proc~ia_calc_angle_energy proc~mcm_crnk mcm_crnk proc~mcm_crnk->proc~ia_calc_atm_angle_energy proc~mcm_dbl_pivot mcm_dbl_pivot proc~mcm_dbl_pivot->proc~ia_calc_atm_angle_energy proc~mcm_dspl mcm_dspl proc~mcm_dspl->proc~ia_calc_atm_angle_energy proc~mcm_pivot mcm_pivot proc~mcm_pivot->proc~ia_calc_atm_angle_energy proc~mcm_res_pivot mcm_res_pivot proc~mcm_res_pivot->proc~ia_calc_atm_angle_energy proc~mcm_sc_crnk mcm_sc_crnk proc~mcm_sc_crnk->proc~ia_calc_atm_angle_energy proc~mcm_sc_pivot mcm_sc_pivot proc~mcm_sc_pivot->proc~ia_calc_atm_angle_energy proc~mcs_run mcs_run proc~mcs_run->proc~ia_calc_energy proc~mcs_run->proc~mcm_crnk proc~mcs_run->proc~mcm_dbl_pivot proc~mcs_run->proc~mcm_dspl proc~mcs_run->proc~mcm_pivot proc~mcs_run->proc~mcm_res_pivot proc~mcs_run->proc~mcm_sc_crnk proc~mcs_run->proc~mcm_sc_pivot program~main main program~main->proc~mcs_run