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

[walter at geodynamics.org]

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

Modified:
   seismo/2D/SPECFEM2D/trunk/write_seismograms.f90
Log:
fixed recl=4*NSTEP*nrec bug found by Paul Cristini in 2D code for binary seismograms


Modified: seismo/2D/SPECFEM2D/trunk/write_seismograms.f90
===================================================================
--- seismo/2D/SPECFEM2D/trunk/write_seismograms.f90	2005-02-06 00:21:50 UTC (rev 8458)
+++ seismo/2D/SPECFEM2D/trunk/write_seismograms.f90	2007-12-07 23:47:46 UTC (rev 8459)
@@ -122,7 +122,7 @@
   close(11,status='delete')
 
 ! write the new file
-  open(unit=11,file='OUTPUT_FILES/Ux_file.bin',status='unknown',access='direct',recl=4*NSTEP*nrec)
+  open(unit=11,file='OUTPUT_FILES/Ux_file.bin',status='unknown',access='direct',recl=NSTEP*nrec)
   write(11,rec=1) buffer_SEP_binary
   close(11)
 
@@ -140,7 +140,7 @@
   close(11,status='delete')
 
 ! write the new file
-  open(unit=11,file='OUTPUT_FILES/Uz_file.bin',status='unknown',access='direct',recl=4*NSTEP*nrec)
+  open(unit=11,file='OUTPUT_FILES/Uz_file.bin',status='unknown',access='direct',recl=NSTEP*nrec)
   write(11,rec=1) buffer_SEP_binary
   close(11)