update

quanshengwu · Apr 23, 2018 · 45023e2 · 45023e2
1 parent bb64aaa
commit 45023e2
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/soc/fermisurface.f90 b/soc/fermisurface.f90
@@ -147,7 +147,9 @@ subroutine fermisurface3D
         close(outfileindex)
      endif
 
+#if defined (MPI)
      call mpi_barrier(mpi_cmw, ierr)
+#endif
 
      deallocate(W)
      deallocate(Hamk_bulk)
@@ -307,7 +309,9 @@ subroutine orbitaltexture
         enddo
         close(outfileindex)
      endif
+#if defined (MPI)
      call mpi_barrier(mpi_cmw, ierr)
+#endif
 
 
      outfileindex= outfileindex+ 1
@@ -321,7 +325,9 @@ subroutine orbitaltexture
         enddo
         close(outfileindex)
      endif
+#if defined (MPI)
      call mpi_barrier(mpi_cmw, ierr)
+#endif
 
 
      outfileindex= outfileindex+ 1
@@ -338,7 +344,9 @@ subroutine orbitaltexture
         enddo
         close(outfileindex)
      endif
+#if defined (MPI)
      call mpi_barrier(mpi_cmw, ierr)
+#endif