src/H5BlocF90.inc

* declaration of h5bl_3d_{g,s}et_field_origin() added

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