[cig-commits] [commit] pluggable: Merged r13698 bug fix from tags/v4.0.3-portal: (738a60b)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem3d_globe

On branch  : pluggable
Link       : https://github.com/geodynamics/specfem3d_globe/compare/64e1b38f0c5ebb4056cce0b15d41c0b9f94ab6e5...099a4d330d5b173b21e51ad441f9f429e5d37842

>---------------------------------------------------------------

commit 738a60bead6e635c03e4be95e2ed8579d3ac65a9
Author: Leif Strand <leif at geodynamics.org>
Date:   Thu Mar 26 22:16:27 2009 +0000

    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.


>---------------------------------------------------------------

738a60bead6e635c03e4be95e2ed8579d3ac65a9
 get_event_info.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/get_event_info.f90 b/get_event_info.f90
index 1dc25d1..1d478f0 100644
--- a/get_event_info.f90
+++ b/get_event_info.f90
@@ -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)