bond_harm_set Subroutine

private subroutine bond_harm_set(params, k, r0)

Setter for harmonic bond 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~~bond_harm_set~~CalledByGraph proc~bond_harm_set bond_harm_set proc~ia_bond_setup ia_bond_setup proc~ia_bond_setup->proc~bond_harm_set proc~ia_setup ia_setup proc~ia_setup->proc~ia_bond_setup proc~run run proc~run->proc~ia_setup program~main main program~main->proc~run