From 28c0ac78ad56166e413089495431e788dd352df1 Mon Sep 17 00:00:00 2001 From: Achim Gsell Date: Thu, 14 Jun 2007 15:13:26 +0000 Subject: [PATCH] src/H5BlocF90.inc * declaration of h5bl_3d_{g,s}et_field_origin() added --- src/H5BlockF90.inc | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) 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