02.12.2012 Views

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

SHOW MORE
SHOW LESS

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/

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!