summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2008-08-12 13:33:49 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2008-08-12 13:33:49 (GMT)
commit367f2125d956e1c38c99f59603df95f6f31b940e (patch)
tree13d975fd64da87abc8944861d297585a3acdb5dc /fortran
parentf040f990a065db070a83e3217c209a83e204d6ca (diff)
downloadhdf5-367f2125d956e1c38c99f59603df95f6f31b940e.zip
hdf5-367f2125d956e1c38c99f59603df95f6f31b940e.tar.gz
hdf5-367f2125d956e1c38c99f59603df95f6f31b940e.tar.bz2
[svn-r15463] Description:
Bring revision 15462 (compiler warnings) back from trunk. Tested on: Mac OS X/32 10.5.4 (amazon) w/FORTRAN & C++ (Too minor to require h5committest)
Diffstat (limited to 'fortran')
-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;