[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