[cig-commits] r8484 - seismo/2D/SPECFEM2D/trunk

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:49:54 -0800 (Fri, 07 Dec 2007)
New Revision: 8484

Modified:
   seismo/2D/SPECFEM2D/trunk/meshfem2D.f90
Log:
changed write(20,"('')") to avoid Hollerinth problem with Portland pgf90 compiler


Modified: seismo/2D/SPECFEM2D/trunk/meshfem2D.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/meshfem2D.f90	2006-03-20 14:52:27 UTC (rev 8483)
+++ seismo/2D/SPECFEM2D/trunk/meshfem2D.f90	2007-12-07 23:49:54 UTC (rev 8484)
@@ -546,7 +546,7 @@
     do icol=0,nx-istepx,istepx
       write(20,*) sngl(x(icol,ili)),sngl(z(icol,ili))
       write(20,*) sngl(x(icol+istepx,ili)),sngl(z(icol+istepx,ili))
-      write(20,"('')")
+      write(20,10)
     enddo
   enddo
 
@@ -562,10 +562,12 @@
     do ili=0,nz-istepz,istepz
       write(20,*) sngl(x(icol,ili)),sngl(z(icol,ili))
       write(20,*) sngl(x(icol,ili+istepz)),sngl(z(icol,ili+istepz))
-      write(20,"('')")
+      write(20,10)
     enddo
   enddo
 
+ 10 format('')
+
   close(20)
 
 ! cree le script de dessin pour gnuplot