--- trunk/mdtools/md_code/simulation_module.F90	2003/01/28 22:16:55	252
+++ trunk/mdtools/md_code/simulation_module.F90	2003/01/30 15:20:21	253
@@ -89,6 +89,7 @@ contains
     thisSim%nLRParticles = nLRParticles
     thisSim%box          = box
     thisSim%rlist        = rlist
+    thisSIm%rlistsq      = rlist * rlist
     thisSim%rcut         = rcut
     thisSim%rcutsq       = rcut * rcut
     thisSim%rcut6        = thisSim%rcutsq * thisSim%rcutsq * thisSim%rcutsq
@@ -252,6 +253,7 @@ contains
     thisrlist = thisSim%rlist
     if(present(rlist2)) rlist2 = thisSim%rlistsq
 
+
   end subroutine getRlist