<pre><code class="language-fortran">SUBROUTINE H5LRcopy_reference_f( obj_id, ref, file, path, block_coord, ref_new, error )
IMPLICIT NONE
INTEGER(hid_t), INTENT(in) :: obj_id ! Identifier of any object in a file an
! HDF5 reference belongs to
TYPE(hdset_reg_ref_t_f), INTENT(IN) :: ref ! Reference to the datasets region
CHARACTER(LEN=*), INTENT(IN) :: file ! Name of the destination file
CHARACTER(LEN=*), INTENT(IN) :: path ! Full path to the destination dataset
INTEGER(hsize_t), DIMENSION(:), INTENT(IN) :: block_coord ! Hyperslab coordinates in the destination dataset
TYPE(hdset_reg_ref_t_f), INTENT(OUT) :: ref_new ! Region reference to the new location of data
INTEGER, INTENT(OUT) :: error ! Error code:
! 0 on success and -1 on failure
END SUBROUTINE H5LRcopy_reference_f</code></pre> |