x2lon.gsf

function x2lon( x )
  'q dims'
  line = sublin( result, 2 )
  type = subwrd( line, 3 )
  if( type = 'varying' )
    x1 = subwrd( line, 11 )
    x2 = subwrd( line, 13 )
  else
    x1 = subwrd( line, 9 )
    x2 = subwrd( line, 9 )
  endif
  'set x 'x
  'q dims'
  line = sublin( result, 2 )
  lon  = subwrd( line, 6 )
  'set x 'x1' 'x2
return lon