Subroutine calc

Next: Subroutine calc_force_perp Up: Module ts_module Previous: Subroutine Interpolate_images Contents Index

Subroutine `calc_tangent`

$\begin{boxedminipage}{\textwidth} \begin{verbatim}call calc_tangent(this,lnewtangent,energy,tau)\end{verbatim} \end{boxedminipage}$

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

lnewtangent -- logical, intent(in)

energy -- real(dp), intent(in), dimension(this%cos%N)

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

calc_force_perp subroutine

gabor 2009-06-30