diff --git a/src/H5BlockF90.inc b/src/H5BlockF90.inc index e38b3fe..ff5c91e 100644 --- a/src/H5BlockF90.inc +++ b/src/H5BlockF90.inc @@ -157,4 +157,20 @@ REAL*8, INTENT(IN) :: z END FUNCTION + INTEGER*8 FUNCTION h5bl_3d_get_field_origin ( filehandle, name, x, y, z ) + INTEGER*8, INTENT(IN) :: filehandle + CHARACTER(LEN=*), INTENT(IN) :: name + REAL*8, INTENT(OUT) :: x + REAL*8, INTENT(OUT) :: y + REAL*8, INTENT(OUT) :: z + END FUNCTION + + INTEGER*8 FUNCTION h5bl_3d_set_field_origin ( filehandle, name, x, y, z ) + INTEGER*8, INTENT(IN) :: filehandle + CHARACTER(LEN=*), INTENT(IN) :: name + REAL*8, INTENT(IN) :: x + REAL*8, INTENT(IN) :: y + REAL*8, INTENT(IN) :: z + END FUNCTION + END INTERFACE