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