teth_harm_set Subroutine

private subroutine teth_harm_set(params, k, r0)

Setter for harmonic tether interaction.

  U = (1/2)*k*(r - r0)^2

User-set parameters:

  • params(1) = k (spring constant)
  • params(2) = r0 (equilibrium distance)

Arguments

Type IntentOptional Attributes Name
real(kind=rp), intent(inout), dimension(:) :: params
real(kind=rp), intent(in), optional :: k
real(kind=rp), intent(in), optional :: r0

Called by

proc~~teth_harm_set~~CalledByGraph proc~teth_harm_set teth_harm_set proc~ia_tether_setup ia_tether_setup proc~ia_tether_setup->proc~teth_harm_set proc~ia_setup ia_setup proc~ia_setup->proc~ia_tether_setup proc~run run proc~run->proc~ia_setup program~main main program~main->proc~run