From a2dfad7b696956fe0f6cc4faacf0dacddf5dc002 Mon Sep 17 00:00:00 2001 From: Achim Gsell Date: Wed, 13 Jun 2007 12:32:33 +0000 Subject: [PATCH] src/H5BlockF90.inc * Declarations to set/get field spacing functions added --- src/H5BlockF90.inc | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/src/H5BlockF90.inc b/src/H5BlockF90.inc index 586c615..e38b3fe 100644 --- a/src/H5BlockF90.inc +++ b/src/H5BlockF90.inc @@ -141,4 +141,20 @@ INTEGER*8, INTENT(IN) :: filehandle END FUNCTION + INTEGER*8 FUNCTION h5bl_3d_get_field_spacing ( 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_spacing ( 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