Calculates energy for FENE bond interaction. If bond length exceeds
maximum extensible spring length, an error will be reported as ierr = 1.
params(1) = kspring, params(2) = r0, params(3) = delta
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=rp), | intent(in) | :: | r | |||
| type(ia_specs_t), | intent(in) | :: | specs | |||
| real(kind=rp), | intent(out) | :: | enrg | |||
| integer, | intent(out) | :: | ierr |