[cig-commits] r6845 - geodyn/3D/MAG/trunk/src

[wei at geodynamics.org]

Author: wei
Date: 2007-05-10 14:32:05 -0700 (Thu, 10 May 2007)
New Revision: 6845

Modified:
   geodyn/3D/MAG/trunk/src/cmbcoeff.f
Log:
Change print format

Modified: geodyn/3D/MAG/trunk/src/cmbcoeff.f
===================================================================
--- geodyn/3D/MAG/trunk/src/cmbcoeff.f	2007-05-10 20:51:32 UTC (rev 6844)
+++ geodyn/3D/MAG/trunk/src/cmbcoeff.f	2007-05-10 21:32:05 UTC (rev 6845)
@@ -189,8 +189,8 @@
       do 41 j=0,i
          write(22,2201) glm(i,j)
          write(22,2202) hlm(i,j)
- 2201 format(2x,f10.5)
- 2202 format(4x,f10.5)
+ 2201 format(2x,f15.5)
+ 2202 format(4x,f15.5)
    41 continue
    43 continue