[Commits] [svn:einsteintoolkit] NoExcision/trunk/src/ (Rev. 27)

diener at cct.lsu.edu diener at cct.lsu.edu
Tue Aug 17 10:22:12 CDT 2010


User: diener
Date: 2010/08/17 10:22 AM

Modified:
 /trunk/src/
  smooth.F90

Log:
 Replace an 'else where' with 'elsewhere'. I wonder why more compilers have
 not complained about this.

File Changes:

Directory: /trunk/src/
======================

File [modified]: smooth.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/smooth.F90	2010-07-12 14:50:48 UTC (rev 26)
+++ trunk/src/smooth.F90	2010-08-17 15:22:11 UTC (rev 27)
@@ -42,7 +42,7 @@
              &           ((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



More information about the Commits mailing list