--- trunk/mdtools/interface_implementation/forceFactory.F90	2003/01/09 21:31:16	231
+++ trunk/mdtools/interface_implementation/forceFactory.F90	2003/01/10 21:56:06	234
@@ -1,7 +1,7 @@
 subroutine forceFactory(forceName,status,forceSetup)
   use TraPPE_ExFF
   use lj_ff
-  character(len = 15)  :: forceName
+  character(len = *)  :: forceName
   integer, intent(out) :: status 
   external forceSetup