Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=HID_T), | intent(in) | :: | fileId |
subroutine Close_HDF5(fileId)
implicit none
integer(HID_T),intent(in) :: fileId
! Local
integer :: error
call h5fclose_f(fileId,error)
call h5close_f(error)
endsubroutine Close_HDF5