From 791a9be790f74e3c5ba2558ddf829287083f0933 Mon Sep 17 00:00:00 2001
From: Achim Gsell <achim.gsell@psi.ch>
Date: Fri, 29 Sep 2006 00:19:09 +0000
Subject: [PATCH] test/H5BlockParTestScalarFieldF.f90 	- read_field() 	
 * bugfix in calculation of expected value

---
 test/H5BlockParTestScalarFieldF.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/H5BlockParTestScalarFieldF.f90 b/test/H5BlockParTestScalarFieldF.f90
index cb6121d..31efc8b 100644
--- a/test/H5BlockParTestScalarFieldF.f90
+++ b/test/H5BlockParTestScalarFieldF.f90
@@ -440,7 +440,7 @@ PROGRAM H5BlockParTestScalarFieldF
               rj = rj - j_start;
               rk = rk - k_start;
 
-              value = (k-1) + 1000*(j-1) + 100000*(i-1)
+              value = (k-1) + 1000*(j-1) + 100000*(i-1) + 10000000*myproc
               if ( data(i,j,k) /= value ) THEN
                  PRINT *, "data(",i,",",j,",",k,") = ",data(i,j,k), " /= ",value
               END IF