- bug fix (zoom out when a date was selected)

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