Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character, | intent(in) | :: | fileName | |||
integer, | intent(in) | :: | accessFlag | |||
integer(kind=HID_T), | intent(inout) | :: | fileId |
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