Open_HDF5_serial Subroutine

  1. SELF_HDF5.f90
  2. SELF_HDF5
  3. Open_HDF5_serial

private subroutine Open_HDF5_serial(fileName, accessFlag, fileId)

Arguments

TypeIntentOptionalAttributesName
character, intent(in) :: fileName
integer, intent(in) :: accessFlag
integer(kind=HID_T), intent(inout) :: fileId

Contents

Source Code

Open_HDF5_serial

Source Code

  subroutine Open_HDF5_serial(fileName,accessFlag,fileId)
    implicit none
    character(*),intent(in) :: fileName
    integer,intent(in) :: accessFlag
    integer(HID_T),intent(inout) :: fileId
    ! Local
    integer :: error

    call h5open_f(error)

    if(accessFlag == H5F_ACC_TRUNC_F) then
      call h5fcreate_f(trim(fileName),accessFlag,fileId,error)
    else
      call h5fopen_f(trim(fileName),accessFlag,fileId,error)
    endif

    if(error == -1) then
      print*,'Failed to open '//trim(fileName)//'.'
      stop 1
    endif

  endsubroutine Open_HDF5_serial