--- trunk/mdtools/interface_implementation/forceFactory.F90	2003/01/27 19:28:21	248
+++ trunk/mdtools/interface_implementation/forceFactory.F90	2003/01/27 21:28:19	249
@@ -1,5 +1,5 @@
 subroutine forceFactory(forceName,status,forceSetup)
-  use TraPPE_ExFF
+!  use TraPPE_ExFF
   use lj_ff
   character(len = *)  :: forceName
   integer, intent(out) :: status 
@@ -8,8 +8,8 @@ subroutine forceFactory(forceName,status,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)
   case default