Subroutine calc

Next: Subroutine calc_reparameterisation Up: Module ts_module Previous: Subroutine calc_force_4c Contents Index

Subroutine `calc_spring`

$\begin{boxedminipage}{\textwidth} \begin{verbatim}call calc_spring(this,tau,forces,spring_constant)\end{verbatim} \end{boxedminipage}$

Compute the force due to the spring for each image

this -- type(TS), intent(in)

tau -- real(dp), intent(in), dimension(this%cos%N,3,this%cos%image(1)%at%N)

forces -- real(dp), intent(inout), dimension(this%cos%N,3,this%cos%image(1)%at%N)

spring_constant -- real(dp)

calc_reparameterisation subroutine

gabor 2009-06-30