diff options
Diffstat (limited to 'src/sor_flat.F')
-rw-r--r-- | src/sor_flat.F | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/sor_flat.F b/src/sor_flat.F index 735916d..a97bb5d 100644 --- a/src/sor_flat.F +++ b/src/sor_flat.F @@ -25,7 +25,7 @@ subroutine sor_flat_core3d(_CCTK_FARGUMENTS, $ Mlinear_lsh,Mlinear, $ Nsource_lsh,Nsource, - $ var, + $ var,var_idx, $ abstol,reltol) implicit none @@ -41,6 +41,8 @@ CCTK_REAL Nsource(Nsource_lsh(1),Nsource_lsh(2),Nsource_lsh(3)) CCTK_REAL var(cctk_lsh(1),cctk_lsh(2),cctk_lsh(3)) + INTEGER var_idx + CCTK_REAL abstol(3),reltol(3) CCTK_REAL tol @@ -231,7 +233,7 @@ c call CCTK_WARN(1,"Reduction of norm failed!"); c endif c#ifdef MPI -c call synconefunc(var) +c call CCTK_SyncGroupWithVarI(var_idx) c#endif residual = resnorm |