ang_cos_set Subroutine

private subroutine ang_cos_set(params, k)

Setter for angular cosine interaction.

   U(theta) = k*(1 - cos theta),
   where theta is the complementary angle between bonds i & (i+1).

User-set parameters:

params(1) = k

Arguments

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

Called by

proc~~ang_cos_set~~CalledByGraph proc~ang_cos_set ang_cos_set proc~ia_angle_setup ia_angle_setup proc~ia_angle_setup->proc~ang_cos_set proc~ia_setup ia_setup proc~ia_setup->proc~ia_angle_setup proc~run run proc~run->proc~ia_setup program~main main program~main->proc~run