removed the use of h5pclose_c

HDFGroup · Nov 1, 2023 · f7db08d · f7db08d
1 parent 1a28fec
commit f7db08d
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90
@@ -5026,12 +5026,12 @@ END FUNCTION H5Pcreate_class
 
     c_name = TRIM(name)//C_NULL_CHAR
 
-    create_default = c_null_funptr
-    create_data_default = c_null_ptr
-    copy_default = c_null_funptr
-    copy_data_default = c_null_ptr
-    close_default = c_null_funptr
-    close_data_default = c_null_ptr
+    create_default = C_NULL_FUNPTR
+    create_data_default = C_NULL_PTR
+    copy_default = C_NULL_FUNPTR
+    copy_data_default = C_NULL_PTR
+    close_default = C_NULL_FUNPTR
+    close_data_default = C_NULL_PTR
 
     IF(PRESENT(create)) create_default = create
     IF(PRESENT(create_data)) create_data_default = create_data