47 lines
1.0 KiB
Fortran
47 lines
1.0 KiB
Fortran
!
|
|
! Copyright (c) 2006-2015, The Regents of the University of California,
|
|
! through Lawrence Berkeley National Laboratory (subject to receipt of any
|
|
! required approvals from the U.S. Dept. of Energy) and the Paul Scherrer
|
|
! Institut (Switzerland). All rights reserved.!
|
|
!
|
|
! License: see file COPYING in top level of source distribution.
|
|
!
|
|
include 'H5hut.f90'
|
|
|
|
program openclose
|
|
|
|
use H5hut
|
|
|
|
implicit none
|
|
|
|
#if defined(PARALLEL_IO)
|
|
include 'mpif.h'
|
|
#endif
|
|
integer :: comm, rank
|
|
integer*8 :: file_id, status
|
|
integer*8 :: props
|
|
|
|
#if defined(PARALLEL_IO)
|
|
integer :: ierr
|
|
comm = MPI_COMM_WORLD
|
|
call mpi_init(ierr)
|
|
call mpi_comm_rank(comm, rank, ierr)
|
|
#else
|
|
comm = 0
|
|
rank = 1
|
|
#endif
|
|
|
|
props = h5_createprop_file ()
|
|
#if defined(PARALLEL_IO)
|
|
status = h5_setprop_file_mpio_collective (props, comm)
|
|
#endif
|
|
file_id = h5_openfile ("testfile.h5", H5_O_WRONLY, props)
|
|
status = h5_closeprop (props)
|
|
status = h5_closefile (file_id);
|
|
|
|
#if defined(PARALLEL_IO)
|
|
call mpi_finalize(ierr)
|
|
#endif
|
|
|
|
end program openclose
|