function dates(arg)
   yr= subwrd(arg,1)
   mon=subwrd(arg,2)
   dy=subwrd(arg,3)
   dayIndex=subwrd(arg,4)
   inputCTL=subwrd(arg,5)
   outfile=subwrd(arg,6)
   TargetVar=subwrd(arg,7)
   
say yr
say mon
say dy
say dayIndex
say 'InputFile:' inputCTL
say 'OutputFile:' outfile
fileOutName=outfile
say 'set t ' dayIndex

'reinit'
'open 'inputCTL'
'set t ' dayIndex
'query time'
CurTime=sublin(result,1)
say CurTime
'define Outvar = 'TargetVar'
'set undef -999'
'set sdfwrite ' fileOutName
'sdfwrite Outvar'
'quit'