--- trunk/mdtools/md_code/simulation_module.F90	2003/01/22 21:45:20	240
+++ trunk/mdtools/md_code/simulation_module.F90	2003/01/23 16:19:59	241
@@ -73,7 +73,7 @@ contains
 
   subroutine setSimulation(nLRParticles,box,rlist,rcut)
     integer, intent(in) :: nLRParticles 
-    real(kind = dp ), intent(in) :: box
+    real(kind = dp ), intent(in), dimension(3) :: box
     real(kind = dp ), intent(in) :: rlist
     real(kind = dp ), intent(in) :: rcut