# An example ARTS controlfile that calculates absorption
# coefficients. 
#
# Uses Agendas.
#
# SAB 30.05.2002

Main {

NumericSet(ls_f0){183e9}

NumericSet(ls_gamma){1e9}

NumericSet(ls_sigma){0}

VectorNLinSpace(f_grid){
  start = 160e9
  stop  = 200e9
  n     = 100
}

WriteXML(f_grid){""}

CloneSize(ls,f_grid){}

AgendaSet(els_agenda){
  Ignore(ls_sigma){}
  elsLorentz{}
}

NumericSet(ls_cutoff){750e9}  # Cutoff at 750 GHz
#NumericSet(ls_cutoff){10e9}  # Cutoff at 10 GHz

lsWithCutoffAdd{}

WriteXML(ls){""}

}