[Commits] [svn:einsteintoolkit] NullDecomp/trunk/src/ (Rev. 5)

diener at cct.lsu.edu diener at cct.lsu.edu
Fri Oct 21 15:16:24 CDT 2011


User: diener
Date: 2011/10/21 03:16 PM

Modified:
 /trunk/src/
  NullDecomp_IO.F90

Log:
 Remove superflouos commas that make the IBM compilers choke.

File Changes:

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

File [modified]: NullDecomp_IO.F90
Delta lines: +4 -4
===================================================================
--- trunk/src/NullDecomp_IO.F90	2011-08-25 12:47:44 UTC (rev 4)
+++ trunk/src/NullDecomp_IO.F90	2011-10-21 20:16:24 UTC (rev 5)
@@ -28,8 +28,8 @@
   do l = Lmin, Lmax
      do m = -l, l
 
-       write(lName, '(i2.2)'), l
-       write(mName, '(i2.2)'), abs(m)
+       write(lName, '(i2.2)') l
+       write(mName, '(i2.2)') abs(m)
        if(m.ge.0) then
          mName='p'//mName(1:2)
        else
@@ -76,8 +76,8 @@
   do l = Lmin, Lmax
      do m = -l, l
 
-       write(lName, '(i2.2)'), l
-       write(mName, '(i2.2)'), abs(m)
+       write(lName, '(i2.2)') l
+       write(mName, '(i2.2)') abs(m)
        if(m.ge.0) then
          mName='p'//mName(1:2)
        else



More information about the Commits mailing list