linse/sicspsi
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
zolliker
2005-10-11 11:19:13 +00:00
parent ae8e339086
commit 12a5e76c27
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
tecs/tecs_plot.f
View File

@ -747,7 +747,10 @@
if (j .gt. 1 .and. j .lt. numl) then if (j .gt. 1 .and. j .lt. numl) then
read(numb(1:j-1), *, iostat=iostat) day read(numb(1:j-1), *, iostat=iostat) day
mon=0 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) tbase = myc_time(day+mon*100)
else else
read(numb, *, iostat=iostat) day read(numb, *, iostat=iostat) day
@ -756,7 +759,7 @@
x1=0 x1=0
x2=oneDay x2=oneDay
window=x2 window=x2
mode=0 mode=zoom
yzoom=.false. yzoom=.false.
elseif (key .eq. 'L') then elseif (key .eq. 'L') then
if (mode .eq. live) then if (mode .eq. live) then