diff options
-rw-r--r-- | src/sor_flat.F | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/sor_flat.F b/src/sor_flat.F index a3926b6..ac50027 100644 --- a/src/sor_flat.F +++ b/src/sor_flat.F @@ -103,7 +103,7 @@ c Set boundary related variables if (CCTK_EQUALS(sor_bound,"robin")) then sw(1)=1 sw(2)=1 - sw(2)=1 + sw(3)=1 call Ell_GetRealKey(ierr, finf, "EllLinFlat::Bnd::Robin::inf") call Ell_GetIntKey (ierr, npow, "EllLinFlat::Bnd::Robin::falloff") |