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

[walter at geodynamics.org]

Author: walter
Date: 2007-12-07 15:58:37 -0800 (Fri, 07 Dec 2007)
New Revision: 8585

Modified:
   seismo/2D/SPECFEM2D/trunk/write_seismograms.F90
Log:
fixed a bug with double precision binary output files .bin (the first half was the converted values in single, the rest was random).

Modified: seismo/2D/SPECFEM2D/trunk/write_seismograms.F90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/write_seismograms.F90	2007-09-12 16:59:54 UTC (rev 8584)
+++ seismo/2D/SPECFEM2D/trunk/write_seismograms.F90	2007-12-07 23:58:37 UTC (rev 8585)
@@ -205,10 +205,10 @@
 
 ! write binary seismogram
         write(12,rec=irec) sngl(buffer_binary(:,1))
-        write(13,rec=irec) sngl(buffer_binary(:,1))
+        write(13,rec=irec) buffer_binary(:,1)
         if ( seismotype /= 4 ) then
            write(14,rec=irec) sngl(buffer_binary(:,2))
-           write(15,rec=irec) sngl(buffer_binary(:,2))
+           write(15,rec=irec) buffer_binary(:,2)
         end if
 
 #ifdef USE_MPI