From 3483dfd01b26c4c496486f5019e0c8bba8a9df78 Mon Sep 17 00:00:00 2001 From: diener Date: Tue, 17 Aug 2010 15:22:11 +0000 Subject: Replace an 'else where' with 'elsewhere'. I wonder why more compilers have not complained about this. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/NoExcision/trunk@27 4ec1db94-0e4f-0410-ada3-8bed251432c9 --- src/smooth.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/smooth.F90 b/src/smooth.F90 index d6df156..4e00105 100644 --- a/src/smooth.F90 +++ b/src/smooth.F90 @@ -42,7 +42,7 @@ subroutine NoExcision_Smooth (CCTK_ARGUMENTS) & ((z - cz) / radz)**2) where (mask <= 0) mask = 0 ! outside - else where (mask >= smoothing_zone_width(n)) + elsewhere (mask >= smoothing_zone_width(n)) mask = 1 ! far inside elsewhere mask = mask / smoothing_zone_width(n) ! a bit inside -- cgit v1.2.3