if exist(spi) return
!
define structure spi /global
define character*128 spi%filter /global
define character*16 spi%type /global
define character*128 spi%tmpname /global
define double spi%freq /global
!
let spi%filter TABLES/s-Wide*+C
let spi%type uvt
let spi%tmpname flux.txt
!
begin data gag_scratch:x_spindex.hlp
1 Spectral_Index

  Fit the spectral index using selected files.
  The files can be UV tables or Images. UV_FIT with a simple
  model (E_GAUSS) is used for UV Tables, while the current
  support is used for Images.
  
2 SPI%FILTER

  CHARACTER SPI%FILTER*256

  Filter to select the files (with no file type). A typical value
  is TABLES/*-C to select only Continuum UV tables in the default
  layout from the "all-in-one" widget (or MAPS/*-C for the Images).
  
2 SPI%FREQ

  DOUBLE SPI%FREQ
  
  Reference frequency (in MHz) for the flux. Default is 0, indicating
  to take the mean value from the data file.
  
2 SPI%TYPE

  CHARACTER SPI%TYPE*24

  File extension (.uvt for UV Tables, .lmv-clean or .lmv-sky for Images)

2 SPI%TMPNAME

  CHARACTER SPI%TMPNAME*256
  
  Name of temporary file to store the flux values. Default is flux.txt
  
end data gag_scratch:x_spindex.hlp
!
