H5hut/src
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

src/Fortran/H5_modeul.c:

Browse Source 
- h5_hasstep(), h5_setstep(): decrement step number by 1
This commit is contained in:
gsell
2015-09-03 17:20:08 +02:00
parent a1226feafd
commit 2fd5d52125
2 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Fortran/H5_model.c
+4 -4
View File
@@ -21,15 +21,15 @@
int
h5_hasstep (
const h5_int64_t* f,
const h5_int64_t* stepno
const h5_int64_t* step
) {
h5_file_t fh = h5_filehandlefor2c(f);
H5_API_ENTER (
int,
"f=%p, stepno=%lld",
(h5_file_p)fh, (long long int)stepno);
H5_API_RETURN (h5_has_step (fh, *stepno));
(h5_file_p)fh, (long long int)step);
H5_API_RETURN (h5_has_step (fh, (*step)-1));
}
#define h5_setstep FC_MANGLING( \
@@ -42,7 +42,7 @@ h5_setstep (
h5_file_t fh = h5_filehandlefor2c(f);
H5_API_ENTER (h5_int64_t, "f=%p, step=%lld", (h5_file_p)fh, (long long)*step);
H5_API_RETURN (h5_set_step (fh, *step));
H5_API_RETURN (h5_set_step (fh, (*step)-1));
}
#define h5_getstep FC_MANGLING( \
src/include/H5_const.f90
+8 -1
View File
@@ -1,5 +1,5 @@
!
! Copyright (c) 2006-2013, The Regents of the University of California,
! Copyright (c) 2006-2015, The Regents of the University of California,
! through Lawrence Berkeley National Laboratory (subject to receipt of any
! required approvals from the U.S. Dept. of Energy) and the Paul Scherrer
! Institut (Switzerland). All rights reserved.!
@@ -47,3 +47,10 @@
INTEGER*8, PARAMETER :: H5_ERR_INTERNAL = -253
INTEGER*8, PARAMETER :: H5_ERR_NOT_IMPLEMENTED = -254
INTEGER*8, PARAMETER :: H5_VERBOSE_NONE = 0
INTEGER*8, PARAMETER :: H5_VERBOSE_ERROR = 1
INTEGER*8, PARAMETER :: H5_VERBOSE_WARN = 2
INTEGER*8, PARAMETER :: H5_VERBOSE_INFO = 3
INTEGER*8, PARAMETER :: H5_VERBOSE_DEFAULT = H5_VERBOSE_ERROR