diff options
Diffstat (limited to 'fortran/src/H5Af.c')
| -rw-r--r-- | fortran/src/H5Af.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c index ad13910..daa3932 100644 --- a/fortran/src/H5Af.c +++ b/fortran/src/H5Af.c @@ -29,8 +29,10 @@ nh5acreate_c (hid_t_f *obj_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_ /* * Define creation property */ - c_crt_prp = *crt_prp; + c_crt_prp = (hid_t)*crt_prp; +/* if ( H5P_DEFAULT_F == c_crt_prp ) c_crt_prp = H5P_DEFAULT; +*/ /* * Convert FORTRAN name to C name |