vdw_cosine_set Subroutine

private subroutine vdw_cosine_set(params, A, rcut)

Setter for cosine interaction.

The potential U is given by:

   U = A*[1 + cos(pi*r/rcut)], r < rcut
       0, r >= rcut

The potential as well as its derivative is zero at r = rcut.

User-set parameters:

• params(1) = A
• params(2) = rcut

Internally stored parameters:

• None

Arguments