--- trunk/mdtools/interface_implementation/forceFactory.F90	2003/01/09 21:31:16	231
+++ 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
-  character(len = 15)  :: forceName
+!  use TraPPE_ExFF
+  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 ("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