From 861af1a0ed99b8b1a55c7736c1d4b186b2d0ea21 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Sun, 22 Jan 2012 15:34:26 -0500
Subject: [PATCH] Changed hdf5_open_output to hdf5_create_output as per Bryan's
 suggestion.

---
 src/hdf5_interface.F90 | 6 +++---
 src/initialize.F90     | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/hdf5_interface.F90 b/src/hdf5_interface.F90
index 1c61d184d9..65e27733ab 100644
--- a/src/hdf5_interface.F90
+++ b/src/hdf5_interface.F90
@@ -15,10 +15,10 @@ contains
 #ifdef HDF5
 
 !===============================================================================
-! HDF5_OPEN_OUTPUT
+! HDF5_CREATE_OUTPUT
 !===============================================================================
 
-  subroutine hdf5_open_output()
+  subroutine hdf5_create_output()
 
     character(9), parameter :: filename = "output.h5" ! File name
     integer :: error  ! Error flag
@@ -29,7 +29,7 @@ contains
     ! Create a new file using default properties.
     call h5fcreate_f(filename, H5F_ACC_TRUNC_F, hdf5_output_file, error)
 
-  end subroutine hdf5_open_output
+  end subroutine hdf5_create_output
 
 !===============================================================================
 ! HDF5_WRITE_SUMMARY
diff --git a/src/initialize.F90 b/src/initialize.F90
index 201df17e5c..d516d7a351 100644
--- a/src/initialize.F90
+++ b/src/initialize.F90
@@ -26,7 +26,7 @@ module initialize
 #endif
 
 #ifdef HDF5
-  use hdf5_interface,   only: hdf5_open_output, hdf5_write_summary
+  use hdf5_interface,   only: hdf5_create_output, hdf5_write_summary
 #endif
 
   implicit none
@@ -60,7 +60,7 @@ contains
 
 #ifdef HDF5
        ! Open HDF5 output file for writing
-       call hdf5_open_output()
+       call hdf5_create_output()
        call hdf5_write_summary()
 #endif