From e76b2ed3563542c65c97eb5481881af353627f9e Mon Sep 17 00:00:00 2001 From: Achim Gsell Date: Thu, 28 Sep 2006 22:38:18 +0000 Subject: [PATCH] src/H5BlockF90.inc - h5bl_get_partition_of_proc() h5bl_get_reduced_partition_of_proc() * bugfix in declaration, proc was missing --- src/H5BlockF90.inc | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/H5BlockF90.inc b/src/H5BlockF90.inc index 59bb76e..586c615 100644 --- a/src/H5BlockF90.inc +++ b/src/H5BlockF90.inc @@ -9,8 +9,9 @@ INTEGER*8, INTENT(IN) :: k_end END FUNCTION - INTEGER*8 FUNCTION h5bl_get_partition_of_proc ( filehandle, i_start, i_end, j_start, j_end, k_start, k_end ) + INTEGER*8 FUNCTION h5bl_get_partition_of_proc ( filehandle, proc, i_start, i_end, j_start, j_end, k_start, k_end ) INTEGER*8, INTENT(IN) :: filehandle + INTEGER*8, INTENT(OUT) :: proc INTEGER*8, INTENT(OUT) :: i_start INTEGER*8, INTENT(OUT) :: i_end INTEGER*8, INTENT(OUT) :: j_start @@ -19,8 +20,9 @@ INTEGER*8, INTENT(OUT) :: k_end END FUNCTION - INTEGER*8 FUNCTION h5bl_get_reduced_partition_of_proc ( filehandle, i_start, i_end, j_start, j_end, k_start, k_end ) + INTEGER*8 FUNCTION h5bl_get_reduced_partition_of_proc ( filehandle, proc, i_start, i_end, j_start, j_end, k_start, k_end ) INTEGER*8, INTENT(IN) :: filehandle + INTEGER*8, INTENT(OUT) :: proc INTEGER*8, INTENT(OUT) :: i_start INTEGER*8, INTENT(OUT) :: i_end INTEGER*8, INTENT(OUT) :: j_start