Subroutine calc_force

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

Subroutine `calc_force_perp`

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

Compute the force perpendicular to the path for each image

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

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

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

calc_force_4c subroutine

gabor 2009-06-30