print Init/Valid fields

[Mandelli Alessandro]

Angel Dimitrov wrote:

'q time' is referred to the first file opened.

Try this

'open c:/progra~1/pcgrads/win32e/gfs_000.ctl'
'q ctlinfo 1'
rigainit=sublin(result, x)
* where x is the line number containing the init time or TDEF
tempoinit=subwrd(rigainit,y)
* where y is the word number containing the init time
'open c:/progra~1/pcgrads/win32e/gfs_003.ctl'
'q ctlinfo 2'
rigavalid=sublin(result, x)
tempovalid=subwrd(rigavalid,y)
* same as above

Replace X and Y with appropriate integers

Bye