Fix test programs for SERIAL_MPI

4 years ago · 39e1efb508
parent cdba3a17b6
commit 39e1efb508
4 changed files with 16 additions and 0 deletions
--- a/test/pargen/psb_d_pde2d.F90
+++ b/test/pargen/psb_d_pde2d.F90
@ -314,7 +314,11 @@ contains

      ! A nifty MPI function will split the process list
      npdims = 0
+#if defined(SERIAL_MPI)
+      npdims = 1
+#else
      call mpi_dims_create(np,2,npdims,info)
+#endif
      npx = npdims(1)
      npy = npdims(2)

--- a/test/pargen/psb_d_pde3d.F90
+++ b/test/pargen/psb_d_pde3d.F90
@ -330,7 +330,11 @@ contains

      ! A nifty MPI function will split the process list
      npdims = 0
+#if defined(SERIAL_MPI)
+      npdims = 1
+#else
      call mpi_dims_create(np,3,npdims,info)
+#endif
      npx = npdims(1)
      npy = npdims(2)
      npz = npdims(3)
--- a/test/pargen/psb_s_pde2d.F90
+++ b/test/pargen/psb_s_pde2d.F90
@ -314,7 +314,11 @@ contains

      ! A nifty MPI function will split the process list
      npdims = 0
+#if defined(SERIAL_MPI)
+      npdims = 1
+#else
      call mpi_dims_create(np,2,npdims,info)
+#endif
      npx = npdims(1)
      npy = npdims(2)

--- a/test/pargen/psb_s_pde3d.F90
+++ b/test/pargen/psb_s_pde3d.F90
@ -330,7 +330,11 @@ contains

      ! A nifty MPI function will split the process list
      npdims = 0
+#if defined(SERIAL_MPI)
+      npdims = 1
+#else
      call mpi_dims_create(np,3,npdims,info)
+#endif
      npx = npdims(1)
      npy = npdims(2)
      npz = npdims(3)