[cig-commits] r8435 - seismo/2D/SPECFEM2D/trunk/SPECFEM90

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:46:06 -0800 (Fri, 07 Dec 2007)
New Revision: 8435

Modified:
   seismo/2D/SPECFEM2D/trunk/SPECFEM90/positsource.f90
Log:
removed white spaces from positsource.f90


Modified: seismo/2D/SPECFEM2D/trunk/SPECFEM90/positsource.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/SPECFEM90/positsource.f90	2004-12-16 18:46:35 UTC (rev 8434)
+++ seismo/2D/SPECFEM2D/trunk/SPECFEM90/positsource.f90	2007-12-07 23:46:06 UTC (rev 8435)
@@ -86,9 +86,9 @@
   write(iout,150) xs,zs,coord(1,ipoint),coord(2,ipoint),dmin
   write(iout,160) dminmax
 
- 150   format(1x,f12.3,1x,f12.3,1x,f12.3,1x,f12.3,f12.3)
- 160   format(/2x,'Maximum distance between asked and real =',f12.3)
- 200  format(//1x,48('=')/,' =  S o u r c e s  ', &
+ 150 format(1x,f12.3,1x,f12.3,1x,f12.3,1x,f12.3,f12.3)
+ 160 format(/2x,'Maximum distance between asked and real =',f12.3)
+ 200 format(//1x,48('=')/,' =  S o u r c e s  ', &
   'r e a l  p o s i t i o n s  ='/1x,48('=')// &
   '    Source    x-asked      z-asked     x-obtain     z-obtain       dist'/)