Observation version 1 (dynamic size) since 22-feb-2021:
The section size is now dynamic and can offer space for less or more
than 5 lines, always with mgauslin nline. mgauslin, and thus the array sizes (mgausfit), is implicit
and can be guessed from the section length (by reverting the class_sec_gau_len formula below). Using mgauslin
ensures backward compatibility with older CLASS versions. Other
values are read incorrectly with such versions.
Observation version 1 (static size):
! GAUSS: Gauss fit results (for spectra or drifts). integer(kind=4), parameter :: class_sec_gau_id=-9 integer(kind=4), parameter :: mgauslin=5 integer(kind=4), parameter :: ngauspar=3 ! Number of parameters per line integer(kind=4), parameter :: mgausfit=ngauspar*mxgaus integer(kind=4), parameter :: class_sec_gau_len=3+2*mgausfit 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(mgausfit) ! [area,v0,fwhm] Fit results real(kind=4) :: nerr(mgausfit) ! [area,v0,fwhm] Errors end type gauss