class Continuum and Line Analysis Single-dish Software - IRAM
class Continuum and Line Analysis Single-dish Software - IRAM
class Continuum and Line Analysis Single-dish Software - IRAM
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
4.2. THE HEADER AND DATA SECTIONS 37<br />
parameter (msky=10,mskydip=10+4*msky)<br />
type skydip<br />
sequence<br />
integer(kind=4) :: line(3) ! [ ] <strong>Line</strong> name<br />
real(kind=8) :: restf ! [MHz] Rest frequency<br />
real(kind=8) :: image ! [MHz] Image frequency<br />
integer(kind=4) :: nsky ! [ ] Number of points on sky<br />
integer(kind=4) :: nchop ! [ ] - - - - chopper<br />
integer(kind=4) :: ncold ! [ ] - - - - cold load<br />
real(kind=4) :: elev(msky) ! [rad] Elevations<br />
real(kind=4) :: emiss(msky) ! [ ?] Power on sky<br />
real(kind=4) :: chopp(msky) ! [ ?] Power on chopper<br />
real(kind=4) :: cold(msky) ! [ ?] Power on cold load<br />
end type skydip<br />
4.2.10 Gauss fit results (for spectra or drifts)<br />
! Section -9 /CRGAUS/<br />
! GAUSS: Gauss fit results (for spectra or drifts).<br />
integer mxgaus<br />
integer mfit<br />
parameter (mxgaus=5,mfit=3+6*mxgaus)<br />
type gauss<br />
sequence<br />
integer(kind=4) :: nline ! [ ] Number of components<br />
real(kind=4) :: sigba ! [ Int. unit] Sigma on base<br />
real(kind=4) :: sigra ! [ Int. unit] Sigma on line<br />
real(kind=4) :: nfit(3*mxgaus) ! [area,v0,fwhm] Fit results<br />
real(kind=4) :: nerr(3*mxgaus) ! [area,v0,fwhm] Errors<br />
end type gauss<br />
4.2.11 ”Stellar shell” profile fit results (for spectra)<br />
! Section -12 /CRSHEL/<br />
! SHELL: "Stellar shell" profile fit results (for spectra).<br />
integer mshell<br />
parameter (mshell=43)<br />
type shell<br />
sequence<br />
integer(kind=4) :: nline ! [] Number of components<br />
real(kind=4) :: sigba ! [] Sigma on base<br />
real(kind=4) :: sigra ! [] Sigma on line<br />
real(kind=4) :: nfit(20) ! [] Fit results<br />
real(kind=4) :: nerr(20) ! [] Errors<br />
end type shell<br />
4.2.12 Hyperfine structure profile fit results (for spectra)<br />
! Section -13 /CRNH3/