mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-27 02:10:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r22482] Maintenance:

Browse Source 
- 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.
This commit is contained in:
Elena Pourmal 2012-06-23 18:31:40 -05:00
parent b608652f7e
commit 24b1316f8b
2 changed files with 7 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
fortran/src/H5Df.c
View File

@ -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;
@ -2419,22 +2409,10 @@ 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

6
release_docs/RELEASE.txt
View File

@ -693,6 +693,12 @@ Bug Fixes since HDF5-1.8.0 release
(ADB - 2011/08/15)
- perf_serial test added to Windows projects and check batch file.
(ADB - 2009/06/11)
Fortran
--------
- 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.
(EIP - 2012/06/23)
Tools
-----