Fix test programs for SERIAL_MPI

newG2L
Salvatore Filippone 4 years ago
parent cdba3a17b6
commit 39e1efb508

@ -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)

@ -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)

@ -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)

@ -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)
Loading…
Cancel
Save