From 63c789e174255c72897f7fac34d6bbc665cbfea2 Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@amuncode.org>
Date: Wed, 8 Jan 2014 11:41:48 -0200
Subject: [PATCH] IO: Change public subroutines order.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
---
 src/io.F90 | 180 ++++++++++++++++++++++++++---------------------------
 1 file changed, 90 insertions(+), 90 deletions(-)

diff --git a/src/io.F90 b/src/io.F90
index db6837e..c98868d 100644
--- a/src/io.F90
+++ b/src/io.F90
@@ -175,6 +175,96 @@ module io
 !
 !===============================================================================
 !
+! subroutine READ_RESTART_DATA:
+! ----------------------------
+!
+!   Subroutine reads restart files in order to resume the job. This is
+!   a wrapper for specific format storing.
+!
+!
+!===============================================================================
+!
+  subroutine read_restart_data()
+
+! local variables are not implicit by default
+!
+    implicit none
+!
+!-------------------------------------------------------------------------------
+!
+#ifdef PROFILE
+! start accounting time for the data reading
+!
+    call start_timer(ios)
+#endif /* PROFILE */
+
+! set restart file number
+!
+    nrest = nres
+
+#ifdef HDF5
+! read HDF5 restart file and rebuild the meta and data block structures
+!
+    call read_data_h5()
+#endif /* HDF5 */
+
+#ifdef PROFILE
+! stop accounting time for the data reading
+!
+    call stop_timer(ios)
+#endif /* PROFILE */
+
+!-------------------------------------------------------------------------------
+!
+  end subroutine read_restart_data
+!
+!===============================================================================
+!
+! subroutine WRITE_RESTART_DATA:
+! -----------------------------
+!
+!   Subroutine stores block data in restart files.  This is a wrapper for
+!   specific format storing.
+!
+!
+!===============================================================================
+!
+  subroutine write_restart_data()
+
+! local variables are not implicit by default
+!
+    implicit none
+!
+!-------------------------------------------------------------------------------
+!
+#ifdef PROFILE
+! start accounting time for the data writing
+!
+    call start_timer(iow)
+#endif /* PROFILE */
+
+! increase the file counter
+!
+    nrest = nrest + 1
+
+#ifdef HDF5
+! store restart file
+!
+    call write_data_h5('r')
+#endif /* HDF5 */
+
+#ifdef PROFILE
+! stop accounting time for the data writing
+!
+    call stop_timer(iow)
+#endif /* PROFILE */
+
+!-------------------------------------------------------------------------------
+!
+  end subroutine write_restart_data
+!
+!===============================================================================
+!
 ! subroutine WRITE_DATA:
 ! ---------------------
 !
@@ -228,96 +318,6 @@ module io
   end subroutine write_data
 !
 !===============================================================================
-!
-! subroutine WRITE_RESTART_DATA:
-! -----------------------------
-!
-!   Subroutine stores block data in restart files.  This is a wrapper for
-!   specific format storing.
-!
-!
-!===============================================================================
-!
-  subroutine write_restart_data()
-
-! local variables are not implicit by default
-!
-    implicit none
-!
-!-------------------------------------------------------------------------------
-!
-#ifdef PROFILE
-! start accounting time for the data writing
-!
-    call start_timer(iow)
-#endif /* PROFILE */
-
-! increase the file counter
-!
-    nrest = nrest + 1
-
-#ifdef HDF5
-! store restart file
-!
-    call write_data_h5('r')
-#endif /* HDF5 */
-
-#ifdef PROFILE
-! stop accounting time for the data writing
-!
-    call stop_timer(iow)
-#endif /* PROFILE */
-
-!-------------------------------------------------------------------------------
-!
-  end subroutine write_restart_data
-!
-!===============================================================================
-!
-! subroutine READ_RESTART_DATA:
-! ----------------------------
-!
-!   Subroutine reads restart files in order to resume the job. This is
-!   a wrapper for specific format storing.
-!
-!
-!===============================================================================
-!
-  subroutine read_restart_data()
-
-! local variables are not implicit by default
-!
-    implicit none
-!
-!-------------------------------------------------------------------------------
-!
-#ifdef PROFILE
-! start accounting time for the data reading
-!
-    call start_timer(ios)
-#endif /* PROFILE */
-
-! set restart file number
-!
-    nrest = nres
-
-#ifdef HDF5
-! read HDF5 restart file and rebuild the meta and data block structures
-!
-    call read_data_h5()
-#endif /* HDF5 */
-
-#ifdef PROFILE
-! stop accounting time for the data reading
-!
-    call stop_timer(ios)
-#endif /* PROFILE */
-
-!-------------------------------------------------------------------------------
-!
-  end subroutine read_restart_data
-!
-!===============================================================================
 !!
 !!***  PRIVATE SUBROUTINES  ****************************************************
 !!