TecsServer no longer restarted by SICS

tecs/tecs_plot.f90

@@ -70,13 +70,8 @@ subroutine tecs_plot(file)
     endif
   else
     if (.not. zoom) then
-      if (window==0) then ! maximal
-        x1=0
-        x2=1e20
-      else
-        x2=(x1+x2+window)/2
-        x1=x2-window
-      endif
+      x2=(x1+x2+window)/2
+      x1=x2-window
     endif
     ntot=dlog_get(dmax, nset, tbase, x1-window*0.1, x2+window*0.1, undef, xd, yd)
   endif
@@ -278,6 +273,7 @@ subroutine tecs_plot(file)
                 lastj=j+1
               elseif (xd(j)>x2 .or. yd(j,i)<ymin(rl) .or. yd(j,i)>ymax(rl)) then
                 call pgpage
+	        window=x2-x1
                 goto 1
               endif
             enddo