'define numzoom=1'
'q dims'
dimslon=sublin(result,2)
lonlo=subwrd(dimslon,6)
lonhi=subwrd(dimslon,8)
dimslat=sublin(result,3)
latlo=subwrd(dimslat,6)
lathi=subwrd(dimslat,8)
'define lonlo1='lonlo
'define lonhi1='lonhi
'define latlo1='latlo
'define lathi1='lathi
