arquivo = '/bangu/samfs/eta_ioper/MesoEta/bauru/grbctl/2004/Jan/29//etabru10.2004012912.pgrbf.ctl'
'open 'arquivo
filen = sublin(result,2)
filen = subwrd(filen,8)
'q file'
Sname = sublin(result,1)
Sname1= subwrd(Sname,4)
Sname2= subwrd(Sname,5)
Sname3= subwrd(Sname,6)
Sname4= subwrd(Sname,7)
Sname5= subwrd(Sname,8)
Sname6= subwrd(Sname,9)
Sname7= subwrd(Sname,10)
'set vpage 0 8.5 6 11'
'd pslm'
'q pos'
xp=subwrd(result,3)
yp=subwrd(result,4)
'q xy2w 'xp' 'yp
lonp=subwrd(result,3)
latp=subwrd(result,6)
'q dims'
rec=sublin(result,5)
tempo=subwrd(rec,9)
*'c'
print=latp' 'lonp' xxh 'tempo
write(latlon.txt,print)
'!vttemp2_model.sh 2004012912'