diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2012-06-23 23:31:43 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2012-06-23 23:31:43 (GMT) |
| commit | f59572a17ebab3d5c9d9aeb8eb17a6feefcb1899 (patch) | |
| tree | 7026c3a2d761c67d06bd54bfcac40d300cd149f0 /fortran | |
| parent | 635916cec085636582c8685af1aa57055c095252 (diff) | |
| download | hdf5-f59572a17ebab3d5c9d9aeb8eb17a6feefcb1899.zip hdf5-f59572a17ebab3d5c9d9aeb8eb17a6feefcb1899.tar.gz hdf5-f59572a17ebab3d5c9d9aeb8eb17a6feefcb1899.tar.bz2 | |
[svn-r22483] Maintenance:
- Fixed a typo in return value of the nh5dread_f_c function ( was 1
instead of 0 on success); fixed the return value to make it consistent
with other Fortran functions; cleaned the code from debug statements.
Platforms tested: jam with GNU and Intel compilers, fortran 2003 feature.
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5Df.c | 22 |
1 files changed, 1 insertions, 21 deletions
diff --git a/fortran/src/H5Df.c b/fortran/src/H5Df.c index e1aa98e..6bb1f1c 100644 --- a/fortran/src/H5Df.c +++ b/fortran/src/H5Df.c @@ -2401,16 +2401,6 @@ nh5dread_f_c ( hid_t_f *dset_id , hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t c_xfer_prp; herr_t status; -/* int i, j; */ -/* typedef struct { */ -/* int x; */ -/* float y; */ -/* } r_dual_c; */ - -/* r_dual_c *name=buf; */ - -/* r_dual_c access[4][4]; */ - c_dset_id = (hid_t)*dset_id; c_mem_type_id = (hid_t)*mem_type_id; c_mem_space_id = (hid_t)*mem_space_id; @@ -2420,21 +2410,11 @@ nh5dread_f_c ( hid_t_f *dset_id , hid_t_f *mem_type_id, hid_t_f *mem_space_id, * Call H5Dread function. */ -/* printf("%i %i %i %i %i \n",c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp); */ status = H5Dread(c_dset_id, c_mem_type_id, c_mem_space_id, c_file_space_id, c_xfer_prp, buf); if ( status < 0 ) return ret_value; -/* for ( i=0; i<4; ++i) */ -/* for (j = 0; j<4; ++j) { */ -/* access[i][j] = name[i*4+j]; */ -/* /\* access[i].x = access[i].x + 1; *\/ */ -/* printf("x = %i \n", access[i][j].x); */ -/* printf("y = %f \n", access[i][j].y); */ -/* } */ - - - ret_value = 1; + ret_value = 0; return ret_value; } /****if* H5Df/nh5dget_access_plist_c |