diff options
| author | Allen Byrne <50328838+byrnHDF@users.noreply.github.com> | 2023-06-20 16:04:52 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-06-20 16:04:52 (GMT) |
| commit | 74eaaa5946fdf295e859491681ac66863bb4d2e4 (patch) | |
| tree | 39fd1343538c5b9bffb4e8b61a900d8e602c9c9f | |
| parent | 25a90599784abc7d96426fe03621debd3490fd36 (diff) | |
| download | hdf5-74eaaa5946fdf295e859491681ac66863bb4d2e4.zip hdf5-74eaaa5946fdf295e859491681ac66863bb4d2e4.tar.gz hdf5-74eaaa5946fdf295e859491681ac66863bb4d2e4.tar.bz2 | |
Remove duplicate code (#3161)
| -rw-r--r-- | fortran/src/H5Pff.F90 | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90 index 867e26f..60b8989 100644 --- a/fortran/src/H5Pff.F90 +++ b/fortran/src/H5Pff.F90 @@ -4036,29 +4036,6 @@ SUBROUTINE h5pset_attr_phase_change_f(ocpl_id, max_compact, min_dense, hdferr) CHARACTER(LEN=*), INTENT(IN) :: name INTEGER , INTENT(IN) :: value INTEGER , INTENT(OUT) :: hdferr - END SUBROUTINE h5pset - -!> -!! \ingroup FH5P -!! -!! \brief Sets a property list value. -!! -!! \note \fortran_obsolete -!! -!! \param prp_id Property list identifier to modify. -!! \param name Name of property to modify. -!! \param value Property value, supported types are: -!! \li INTEGER -!! \li REAL -!! \li DOUBLE PRECISION -!! \li CHARACTER(LEN=*) -!! \param hdferr \fortran_error -!! - SUBROUTINE h5pset_f(prp_id, name, value, hdferr) - INTEGER(HID_T), INTENT(IN) :: prp_id - CHARACTER(LEN=*), INTENT(IN) :: name - INTEGER, INTENT(IN) :: value - INTEGER, INTENT(OUT) :: hdferr END SUBROUTINE h5pset_f !> !! \ingroup FH5P |