Ticket #63: autoscale_ld.pro

pro autoscale_ld,samens
;+
;PURPOSE:
;   To autoscale CNOFS Lightning detector data
;INPUT:
;   SAMENS: 'yes' - same scales for North and South
;           else  - differentent scale for North and South
;
; $LastChangedBy: kenb-mac $
; $LastChangedDate: 2008-06-18 19:39:36 -0400 (Wed, 18 Jun 2008) $
; $LastChangedRevision: 943 $
; $URL: svn+ssh://svn@macvefi/reposvefi/trunk/vefigse/idl/cvefi/autoscale_ld.pro $
;-
for p=0,1 do begin
   if p eq 0 then pole='N' else pole='S'
   get_data,'LD_'+pole+'_0',data=data
   tr=timerange(/current)
   if tr(0) eq 0 then begin
      tr(0)=data.x(0)
      tr(1)=data.x(n_elements(data.x))
   endif
   pos=where(data.x ge tr(0) and data.x le tr(1),pp)
   if pp lt 2 then begin
      m=dialog_message('Problem autoscaling raw E data, scales not changed')
      return
   endif
   data=data.y(pos)
   np=n_elements(data)
   data=fltarr(7,np)
   for i=0,6 do begin
      quan='LD_'+pole+'_'+strtrim(string(i),2)
      get_data,quan,data=dat
      data(i,*)=dat.y(pos)
   endfor
   getyranges,data,dmin,dmax,equal=3
   dmin=dmin(0) > 0
   dmax=dmax(0)
   lrange=[dmin(0),dmax(0)]
   options,'LD_'+pole+'_?',yrange=lrange
   crange=long(lrange-lrange/10.)/20*20
   options,'LD_'+pole,zrange=crange
endfor
if samens eq 'yes' then begin
   get_data,'LD_N_0',limits=nlimits
   get_data,'LD_S_0',limits=slimits
   ymin=nlimits.yrange(0) < slimits.yrange(0)
   ymax=nlimits.yrange(1) > slimits.yrange(1)
   options,'LD_?_?',yrange=[ymin,ymax]
   get_data,'LD_N',limits=nlimits
   get_data,'LD_S',limits=slimits
   zmin=nlimits.zrange(0) < slimits.zrange(0)
   zmax=nlimits.zrange(1) > slimits.zrange(1)
   options,'LD_?',zrange=[zmin,zmax]
endif
return
end