Fortran API review

2013-09-26 15:51:49 +02:00
parent c3a74c8ed4
commit ee23c8cc4b
16 changed files with 1644 additions and 1637 deletions
@@ -0,0 +1,39 @@
+  INTERFACE
+     !>
+     !! \ingroup h5hut_model_f
+     !! See \ref H5HasStep
+     !! \return 0 on success or H5_FAILURE
+     !<
+     LOGICAL FUNCTION h5_hasstep (filehandle,step)
+       INTEGER*8, INTENT(IN) :: filehandle !< the handle returned during file open
+       INTEGER*8, INTENT(IN) :: step       !< a timestep value >= 1
+     END FUNCTION h5_hasstep
+
+     !>
+     !! \ingroup h5hut_model_f
+     !! See \ref H5SetStep
+     !! \return 0 on success or error code
+     !<
+     INTEGER*8 FUNCTION h5_setstep (filehandle,step)
+       INTEGER*8, INTENT(IN) :: filehandle !< the handle returned during file open
+       INTEGER*8, INTENT(IN) :: step       !< a timestep value >= 1
+     END FUNCTION h5_setstep
+
+     !>
+     !! \ingroup h5hut_model_f
+     !! See \ref H5GetStep
+     !! \return the the current step or \c H5_FAILURE
+     !<
+     INTEGER*8 FUNCTION h5_getstep (filehandle)      
+       INTEGER*8, INTENT(IN) :: filehandle         !< the handle returned during file open
+     END FUNCTION h5_getstep
+
+     !>
+     !! \ingroup h5hut_model_f
+     !! See \ref H5GetNumSteps
+     !! \return the number of steps or error code
+     !<
+     INTEGER*8 FUNCTION h5_getnsteps (filehandle)      
+       INTEGER*8, INTENT(IN) :: filehandle         !< the handle returned during file open
+     END FUNCTION h5_getnsteps
+  END INTERFACE