initialize_HDF5 Subroutine

  1. korc_HDF5.f90
  2. korc_HDF5
  3. initialize_HDF5

public subroutine initialize_HDF5()

Arguments

None

Calls

proc~~initialize_hdf5~~CallsGraph proc~initialize_hdf5 initialize_HDF5 h5open_f h5open_f proc~initialize_hdf5->h5open_f h5tget_size_f h5tget_size_f proc~initialize_hdf5->h5tget_size_f h5tcopy_f h5tcopy_f proc~initialize_hdf5->h5tcopy_f

Called by

proc~~initialize_hdf5~~CalledByGraph proc~initialize_hdf5 initialize_HDF5 program~main main program~main->proc~initialize_hdf5

Contents

Source Code

initialize_HDF5

Source Code

  subroutine initialize_HDF5()
    INTEGER :: h5error  ! Error flag
    call h5open_f(h5error)

#ifdef HDF5_DOUBLE_PRESICION
    call h5tcopy_f(H5T_NATIVE_DOUBLE, KORC_HDF5_REAL, h5error)
#elif HDF5_SINGLE_PRESICION
    call h5tcopy_f(H5T_NATIVE_REAL, KORC_HDF5_REAL, h5error)
#endif

    call h5tget_size_f(KORC_HDF5_REAL, rp_hdf5, h5error)
  end subroutine initialize_HDF5