diff options
| author | Pedro Vicente Nunes <pvn@hdfgroup.org> | 2004-02-04 19:36:12 (GMT) |
|---|---|---|
| committer | Pedro Vicente Nunes <pvn@hdfgroup.org> | 2004-02-04 19:36:12 (GMT) |
| commit | 78fb916259dad96f1252a99a47c5b576be17a951 (patch) | |
| tree | 48d0f14af81a11733b157c20ed186ff4d775a2d8 /fortran/src/H5Pff.f90 | |
| parent | 517643f146678574693ee13a4857d55c1893f02b (diff) | |
| download | hdf5-78fb916259dad96f1252a99a47c5b576be17a951.zip hdf5-78fb916259dad96f1252a99a47c5b576be17a951.tar.gz hdf5-78fb916259dad96f1252a99a47c5b576be17a951.tar.bz2 | |
[svn-r8149]
Purpose:
replaced name of delete filter with remove filter for the new function H5Premove_filter
Description:
Solution:
Platforms tested:
linux
Misc. update:
Diffstat (limited to 'fortran/src/H5Pff.f90')
| -rw-r--r-- | fortran/src/H5Pff.f90 | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/fortran/src/H5Pff.f90 b/fortran/src/H5Pff.f90 index a49b602..11188a9 100644 --- a/fortran/src/H5Pff.f90 +++ b/fortran/src/H5Pff.f90 @@ -6333,7 +6333,7 @@ END SUBROUTINE h5pmodify_filter_f !---------------------------------------------------------------------- -! Name: h5pdelete_filter_f +! Name: h5premove_filter_f ! ! Purpose: Delete one or more filters from the filter pipeline. ! @@ -6356,11 +6356,11 @@ ! Comment: !---------------------------------------------------------------------- - SUBROUTINE h5pdelete_filter_f(prp_id, filter, hdferr) + SUBROUTINE h5premove_filter_f(prp_id, filter, hdferr) ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) -!DEC$attributes dllexport :: h5pdelete_filter_f +!DEC$attributes dllexport :: h5premove_filter_f !DEC$endif ! IMPLICIT NONE @@ -6369,21 +6369,21 @@ INTEGER, INTENT(OUT) :: hdferr ! Error code -! INTEGER, EXTERNAL :: h5pdelete_filter_c +! INTEGER, EXTERNAL :: h5premove_filter_c ! MS FORTRAN needs explicit interface for C functions called here. ! INTERFACE - INTEGER FUNCTION h5pdelete_filter_c(prp_id, filter) + INTEGER FUNCTION h5premove_filter_c(prp_id, filter) USE H5GLOBAL !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !MS$ATTRIBUTES C,reference,alias:'_H5PMODIFY_FILTER_C'::h5pdelete_filter_c + !MS$ATTRIBUTES C,reference,alias:'_H5PMODIFY_FILTER_C'::h5premove_filter_c !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: prp_id INTEGER, INTENT(IN) :: filter - END FUNCTION h5pdelete_filter_c + END FUNCTION h5premove_filter_c END INTERFACE - hdferr = h5pdelete_filter_c(prp_id, filter) - END SUBROUTINE h5pdelete_filter_f + hdferr = h5premove_filter_c(prp_id, filter) + END SUBROUTINE h5premove_filter_f END MODULE H5P |