fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixes for compilation with IPK=8

Browse Source
This commit is contained in:
sfilippone
2025-11-11 10:00:58 +01:00
parent d6550abc70
commit 387d6bef74
12 changed files with 58 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/advanced/pdegen/amg_d_genpde_mod.F90
+5 -3
View File
@@ -266,8 +266,9 @@ contains
npdims = 0
#if defined(PSB_SERIAL_MPI)
npdims = 1
#else
call mpi_dims_create(np,3,npdims,info)
#else
npp = np
call mpi_dims_create(npp,3,npdims,minfo)
#endif
npx = npdims(1)
npy = npdims(2)
@@ -734,7 +735,8 @@ contains
#if defined(PSB_SERIAL_MPI)
npdims = 1
#else
call mpi_dims_create(np,2,npdims,info)
npp = np
call mpi_dims_create(npp,3,npdims,minfo)
#endif
npx = npdims(1)
npy = npdims(2)
samples/advanced/pdegen/amg_s_genpde_mod.F90
+5 -3
View File
@@ -266,8 +266,9 @@ contains
npdims = 0
#if defined(PSB_SERIAL_MPI)
npdims = 1
#else
call mpi_dims_create(np,3,npdims,info)
#else
npp = np
call mpi_dims_create(npp,3,npdims,minfo)
#endif
npx = npdims(1)
npy = npdims(2)
@@ -734,7 +735,8 @@ contains
#if defined(PSB_SERIAL_MPI)
npdims = 1
#else
call mpi_dims_create(np,2,npdims,info)
npp = np
call mpi_dims_create(npp,3,npdims,minfo)
#endif
npx = npdims(1)
npy = npdims(2)
samples/simple/pdegen/amg_dpde_mod.f90
+2 -1
View File
@@ -230,7 +230,8 @@ contains
! A nifty MPI function will split the process list
npdims = 0
call mpi_dims_create(np,3,npdims,info)
npp = np
call mpi_dims_create(npp,3,npdims,minfo)
npx = npdims(1)
npy = npdims(2)
npz = npdims(3)
samples/simple/pdegen/amg_spde_mod.f90
+2 -1
View File
@@ -230,7 +230,8 @@ contains
! A nifty MPI function will split the process list
npdims = 0
call mpi_dims_create(np,3,npdims,info)
npp = np
call mpi_dims_create(npp,3,npdims,minfo)
npx = npdims(1)
npy = npdims(2)
npz = npdims(3)