This is the force subroutie The New Force Subroutine which contains force_Lj and force_Morse.
you can use this subroutine alternatively for both cases!