From 3369c4ca6699737a0bd58724afd916986016cee7 Mon Sep 17 00:00:00 2001
From: ignis <ignisization@gmail.com>
Date: Sat, 26 Apr 2014 19:43:42 +0900
Subject: [PATCH] Fixed exit w/o MPI_FINALIZE

---
 main.f90    | 1 -
 my_exit.f90 | 4 ++--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/main.f90 b/main.f90
index 90896c9..68f7632 100644
--- a/main.f90
+++ b/main.f90
@@ -295,7 +295,6 @@ program x_code
      ITIME = ITIME-1
      if (task.eq.'hydro') call restart_write_parallel
      call my_exit(0)
-     call m_openmpi_exit
 
      stop
 9000 format('ITIME=',i6,3x,'TIME=',f8.4,4x,'DT=',f8.5,3x,'Courn= ',f6.4, &
diff --git a/my_exit.f90 b/my_exit.f90
index af57464..c15ac34 100644
--- a/my_exit.f90
+++ b/my_exit.f90
@@ -65,15 +65,15 @@ subroutine my_exit(reason)
   write(out,*) "Done."
   call flush(out)
   close(out)
-  stop
 
 
 !  call m_fields_exit
 !  call m_work_exit
 !  call x_fftw_allocate(-1)
 !  call m_io_exit
-!  call m_openmpi_exit
+  call m_openmpi_exit
 
+  stop
 
   return
 end subroutine my_exit