--- trunk/mdtools/md_code/lj_FF.F90	2003/01/10 17:27:28	232
+++ trunk/mdtools/md_code/lj_FF.F90	2003/01/10 21:56:10	235
@@ -292,7 +292,7 @@ contains
     real ( kind = dp ), dimension(ndim,) :: q
     real ( kind = dp ), dimension(ndim,nLRparticles) :: f
     real ( kind = dp ) :: potE
-    logical            :: do_pot
+    logical ( kind = 2) :: do_pot
 #ifdef MPI
   real( kind = DP ), dimension(3,ncol) :: efr
   real( kind = DP ) :: pot_local