[cig-commits] r13698 - seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal

[leif at geodynamics.org]

Author: leif
Date: 2008-12-16 15:01:23 -0800 (Tue, 16 Dec 2008)
New Revision: 13698

Modified:
   seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/get_event_info.f90
Log:
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/tags/v4.0.3-portal/get_event_info.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/get_event_info.f90	2008-12-16 01:14:11 UTC (rev 13697)
+++ seismo/3D/SPECFEM3D_GLOBE/tags/v4.0.3-portal/get_event_info.f90	2008-12-16 23:01:23 UTC (rev 13698)
@@ -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)