diff options
| author | diener <diener@4ec1db94-0e4f-0410-ada3-8bed251432c9> | 2010-08-17 15:22:11 +0000 |
|---|---|---|
| committer | diener <diener@4ec1db94-0e4f-0410-ada3-8bed251432c9> | 2010-08-17 15:22:11 +0000 |
| commit | 3483dfd01b26c4c496486f5019e0c8bba8a9df78 (patch) | |
| tree | 017e84a5a349e9969d38c8a6f17cdf581820a8c7 | |
| parent | 5667625b2cd04b34964b6763fd492779b6069625 (diff) | |
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
| -rw-r--r-- | src/smooth.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
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 |