--- trunk/mdtools/interface_implementation/forceFactory.F90	2003/01/27 21:28:19	249
+++ trunk/mdtools/interface_implementation/forceFactory.F90	2003/01/28 22:16:55	252
@@ -1,17 +1,18 @@
 subroutine forceFactory(forceName,status,forceSetup)
 !  use TraPPE_ExFF
-  use lj_ff
+  use lj_ff, ONLY: new_lj_atype, init_ljFF,do_lj_ff
   character(len = *)  :: forceName
   integer, intent(out) :: status 
   external forceSetup
 
   status = 0
+ 
   select case (forceName)
 
 !  case ("TraPPE_Ex")
 !     call forceSetup(new_TraPPE_ExFF,doTraPPE_ExFF)
   case("LJ")
-     call forceSetup(new_lj_atype,init_ljFF,do_lj_ff)
+       call forceSetup(new_lj_atype,init_ljFF,do_lj_ff)
   case default
      status = -1
      return