--- trunk/mdtools/md_code/lj_FF.F90 2002/12/29 16:43:11 216 +++ trunk/mdtools/md_code/lj_FF.F90 2003/01/02 21:45:45 222 @@ -75,6 +75,19 @@ contains end subroutine add_lj_atype + subroutine do_lj_ff(q,f,potE) + real ( kind = dp ), dimension(ndim,) :: q + real ( kind = dp ), dimension(ndim,nLRparticles) :: f + real ( kind = dp ) :: potE + + + + + + end subroutine do_lj_ff + + + end module lj_ff