crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 22:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Changed hdf5_open_output to hdf5_create_output as per Bryan's suggestion.

Browse source
This commit is contained in:
Paul Romano 2012-01-22 15:34:26 -05:00
parent a6a9ad1a5a
commit 861af1a0ed
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/hdf5_interface.F90
View file

@ -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

4
src/initialize.F90
View file

@ -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