[cig-commits] r14474 - seismo/3D/SPECFEM3D_GLOBE/branches/pluggable

[leif at geodynamics.org]

Author: leif
Date: 2009-03-26 15:16:27 -0700 (Thu, 26 Mar 2009)
New Revision: 14474

Modified:
   seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/get_event_info.f90
Log:
Merged r13698 bug fix from tags/v4.0.3-portal:

Patched the code to allow the data source and year to run together on
the PDE line.  E.g.:

PDEW2007  9 12 11 10 29.00  -4.5200  101.3740  34.0 6.8 8.4 SUMATRA

SPECFEM read this correctly back in the v3.6 days.  At some point, the
code was changed... breaking an assumption in the portal code.


Modified: seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/get_event_info.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/get_event_info.f90	2009-03-26 21:23:45 UTC (rev 14473)
+++ seismo/3D/SPECFEM3D_GLOBE/branches/pluggable/get_event_info.f90	2009-03-26 22:16:27 UTC (rev 14474)
@@ -149,7 +149,8 @@
   !event_id, date,origin time,latitude,longitude,depth, mb, MS, region
 
   ! read header with event information
-    read(821,*) datasource,yr,mo,da,ho,mi,sec,elat,elon,depth,mb,ms,region
+    read(821,"(a4,i5,i3,i3,i3,i3,f6.2,a)") datasource,yr,mo,da,ho,mi,sec,dummystring
+    read(dummystring,*) elat,elon,depth,mb,ms,region
 
     jda=julian_day(yr,mo,da)