From 12a5e76c277e9ec98c5aff8832207550d17219fe Mon Sep 17 00:00:00 2001
From: zolliker <zolliker>
Date: Tue, 11 Oct 2005 11:19:13 +0000
Subject: [PATCH] - bug fix (zoom out when a date was selected)

---
 tecs/tecs_plot.f | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/tecs/tecs_plot.f b/tecs/tecs_plot.f
index f6c1fea..a4afe81 100644
--- a/tecs/tecs_plot.f
+++ b/tecs/tecs_plot.f
@@ -747,7 +747,10 @@
 	  if (j .gt. 1 .and. j .lt. numl) then
 	    read(numb(1:j-1), *, iostat=iostat) day
 	    mon=0
-	    read(numb(j+1:numl), *, iostat=iostat) mon
+	    numb=numb(j+1:numl)
+	    j=index(numb,'.')
+	    if (j .gt. 0) numb(j:)=' '
+	    read(numb, *, iostat=iostat) mon
 	    tbase = myc_time(day+mon*100)
 	  else
 	    read(numb, *, iostat=iostat) day
@@ -756,7 +759,7 @@
 	  x1=0
 	  x2=oneDay
 	  window=x2
-	  mode=0
+	  mode=zoom
 	  yzoom=.false.
 	elseif (key .eq. 'L') then
 	  if (mode .eq. live) then