! scale_cnv.nic
!
define real r r2
let r &2
let r2 r^2
!
sic search &1.cnv
if sic$exist then
  define image xx &1.cnv write
else
  sic search &1
  if sic$exist then
    define image xx &1 write
  else
    return
  endif
endif
define real a /like xx[1]
let a xx[1] 
let a  a*r  /where a.ne.-99999.5
let xx[1] a
let xx[2] xx[2]|r2
let xx%max xx%max*r
let xx%min xx%min*r
del /var xx