test/H5BlockParTestScalarFieldF.f90

H5hut/src

- read_field()
		* bugfix in calculation of expected value

This commit is contained in:

gsell

2006-09-29 00:19:09 +00:00

parent ac632c5ed4

commit 791a9be790

1 changed files with 1 additions and 1 deletions

									
										test/H5BlockParTestScalarFieldF.f90
									
		+1
		-1
	
												View File
												
				@@ -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