! 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