--- trunk/mdtools/interface_implementation/forceFactory.F90	2003/01/09 21:31:16	231
+++ trunk/mdtools/interface_implementation/forceFactory.F90	2003/01/27 21:28:19	249
@@ -1,15 +1,15 @@
 subroutine forceFactory(forceName,status,forceSetup)
-  use TraPPE_ExFF
+!  use TraPPE_ExFF
   use lj_ff
-  character(len = 15)  :: forceName
+  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)
   case default