Gauss fit results (for spectra or drifts)

  ! Section -9  /CRGAUS/
  ! GAUSS: Gauss fit results (for spectra or drifts).
  integer mxgaus
  integer mfit
  parameter (mxgaus=5,mfit=3+6*mxgaus)
  type gauss
     sequence
     integer(kind=4) :: nline           ! [            ] Number of components
     real(kind=4)    :: sigba           ! [   Int. unit] Sigma on base
     real(kind=4)    :: sigra           ! [   Int. unit] Sigma on line
     real(kind=4)    :: nfit(3*mxgaus)  ! [area,v0,fwhm] Fit results
     real(kind=4)    :: nerr(3*mxgaus)  ! [area,v0,fwhm] Errors
  end type gauss