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
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=rp), | intent(inout), | dimension(:) | :: | params | ||
| real(kind=rp), | intent(in), | optional | :: | k |