summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Pf.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5Pf.c')
-rw-r--r--fortran/src/H5Pf.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
index 02da4f2..e466152 100644
--- a/fortran/src/H5Pf.c
+++ b/fortran/src/H5Pf.c
@@ -4199,12 +4199,12 @@ int_f
nh5pset_fapl_direct_c(hid_t_f *fapl_id, size_t_f *alignment, size_t_f *block_size, size_t_f *cbuf_size )
{
int ret_value = -1;
+#ifdef H5_HAVE_DIRECT
herr_t ret;
/*
* Call H5Pset_link_phase_change function.
*/
-#ifdef H5_HAVE_DIRECT
ret = H5Pset_fapl_direct((hid_t)*fapl_id, (size_t)*alignment, (size_t)*block_size, (size_t)*cbuf_size );
if (ret < 0) return ret_value;
@@ -4233,6 +4233,7 @@ int_f
nh5pget_fapl_direct_c(hid_t_f *fapl_id, size_t_f *alignment, size_t_f *block_size, size_t_f *cbuf_size )
{
int ret_value = -1;
+#ifdef H5_HAVE_DIRECT
herr_t ret;
size_t c_alignment;
size_t c_block_size;
@@ -4241,7 +4242,6 @@ nh5pget_fapl_direct_c(hid_t_f *fapl_id, size_t_f *alignment, size_t_f *block_siz
/*
* Call H5Pget_link_phase_change function.
*/
-#ifdef H5_HAVE_DIRECT
ret = H5Pget_fapl_direct((hid_t)*fapl_id, &c_alignment, &c_block_size, &c_cbuf_size );
if (ret < 0) return ret_value;