--- trunk/nano_mpi/src/init_system.F90	2002/06/10 19:31:27	5
+++ trunk/nano_mpi/src/init_system.F90	2002/06/10 21:02:22	7
@@ -696,7 +696,10 @@ contains
 
 !new stuff here
 #ifdef MPI
-         end if
+         if (print_vac) then
+         
+         endif
+
 #else
          if (print_vac) then
             vac_unit = next_unit()
@@ -761,18 +764,18 @@ contains
 
 !new stuff here
 #ifdef MPI 
-                 endif
+                elseif (print_vac) then
+                endif
 
 #else
-                 elseif (print_vac) then
+                elseif (print_vac) then
                           rx  = box(1)*(rx - reference)
                           ry  = box(2)*(ry - reference)
                           rz  = box(3)*(rz - reference)
                     write(unit = vac_unit,fmt = xyz_coord) "Ar", rx, ry, rz
+                endif
+#endif
 
-                 endif
-
-
               else
 !! this will build either a liquid or a cluster
 !! without any vacancies