From cae1c99447955233de830be62ac9c1f4eb0612e5 Mon Sep 17 00:00:00 2001 From: Josh Romero Date: Mon, 3 Nov 2025 15:00:28 -0800 Subject: [PATCH] Fix minor issue in Poisson example. Signed-off-by: Josh Romero --- examples/fortran/poisson/poisson.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/examples/fortran/poisson/poisson.f90 b/examples/fortran/poisson/poisson.f90 index 447ff8a..2e42c48 100644 --- a/examples/fortran/poisson/poisson.f90 +++ b/examples/fortran/poisson/poisson.f90 @@ -143,7 +143,7 @@ program main end do ! check for valid Mx/My/Mz - if (Mx==0 .or. Mx==0 .or. My==0) then + if (Mx==0 .or. My==0 .or. Mz==0) then if (rank == 0) write(*,*) 'Mx/My/Mz is 0 thus solution is u=0' call MPI_Finalize(ierr) stop