Spectra storage structure
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=Float64), | public, | dimension(:,:), allocatable | :: | brems | Bremsstruhlung: brems(lambda,chan) | ||
| real(kind=Float64), | public, | dimension(:,:,:), allocatable | :: | full | Full energy beam emission stark components: full(n_stark,lambda,chan) | ||
| real(kind=Float64), | public, | dimension(:,:,:), allocatable | :: | half | Half energy beam emission stark components: half(n_stark,lambda,chan) | ||
| real(kind=Float64), | public, | dimension(:,:,:), allocatable | :: | third | Third energy beam emission stark components: thirdstokes(n_stark,lambda,chan) | ||
| real(kind=Float64), | public, | dimension(:,:,:,:), allocatable | :: | fullstokes | Full energy beam emission stark components: fullstokes(n_stark,4,lambda,chan) | ||
| real(kind=Float64), | public, | dimension(:,:,:,:), allocatable | :: | halfstokes | Half energy beam emission stark components: halfstokes(n_stark,4,lambda,chan) | ||
| real(kind=Float64), | public, | dimension(:,:,:,:), allocatable | :: | thirdstokes | Third energy beam emission stark components: thirdstokes(n_stark,4,lambda,chan) | ||
| real(kind=Float64), | public, | dimension(:,:,:,:), allocatable | :: | dcx | Direct CX emission stark components: dcx(n_stark,lambda,chan,species) | ||
| real(kind=Float64), | public, | dimension(:,:,:,:,:), allocatable | :: | dcxstokes | Direct CX emission stark components: dcxstokes(n_stark,4,lambda,chan,species) | ||
| real(kind=Float64), | public, | dimension(:,:,:,:), allocatable | :: | halo | Thermal halo emission stark components: halo(n_stark,lambda,chan,species) | ||
| real(kind=Float64), | public, | dimension(:,:,:,:,:), allocatable | :: | halostokes | Thermal halo emission stark components: halo(n_stark,4,lambda,chan,species) | ||
| real(kind=Float64), | public, | dimension(:,:,:,:), allocatable | :: | cold | Cold D-alpha emission stark components: cold(n_stark,lambda,chan,species) | ||
| real(kind=Float64), | public, | dimension(:,:,:,:,:), allocatable | :: | coldstokes | Cold D-alpha emission stark components: coldstokes(n_stark,4,lambda,chan,species) | ||
| real(kind=Float64), | public, | dimension(:,:,:,:), allocatable | :: | fida | Active FIDA emission stark components: fida(n_stark,lambda,chan,orbit_type) | ||
| real(kind=Float64), | public, | dimension(:,:,:,:,:), allocatable | :: | fidastokes | Active FIDA emission stark components: fidastokes(n_stark,4,lambda,chan,orbit_type) | ||
| real(kind=Float64), | public, | dimension(:,:,:,:), allocatable | :: | pfida | Passive FIDA emission stark components: pfida(n_stark,lambda,chan,orbit_type) | ||
| real(kind=Float64), | public, | dimension(:,:,:,:,:), allocatable | :: | pfidastokes | Passive FIDA emission stark components: pfidastokes(n_stark,4,lambda,chan,orbit_type) | 
type Spectra
    !+ Spectra storage structure
    real(Float64), dimension(:,:), allocatable   :: brems
        !+ Bremsstruhlung: brems(lambda,chan)
    real(Float64), dimension(:,:,:), allocatable   :: full
        !+ Full energy beam emission stark components: full(n_stark,lambda,chan)
    real(Float64), dimension(:,:,:), allocatable   :: half
        !+ Half energy beam emission stark components: half(n_stark,lambda,chan)
    real(Float64), dimension(:,:,:), allocatable   :: third
        !+ Third energy beam emission stark components: thirdstokes(n_stark,lambda,chan)
    real(Float64), dimension(:,:,:,:), allocatable   :: fullstokes
        !+ Full energy beam emission stark components: fullstokes(n_stark,4,lambda,chan)
    real(Float64), dimension(:,:,:,:), allocatable   :: halfstokes
        !+ Half energy beam emission stark components: halfstokes(n_stark,4,lambda,chan)
    real(Float64), dimension(:,:,:,:), allocatable   :: thirdstokes
        !+ Third energy beam emission stark components: thirdstokes(n_stark,4,lambda,chan)
    real(Float64), dimension(:,:,:,:), allocatable :: dcx
        !+ Direct CX emission stark components: dcx(n_stark,lambda,chan,species)
    real(Float64), dimension(:,:,:,:,:), allocatable :: dcxstokes
        !+ Direct CX emission stark components: dcxstokes(n_stark,4,lambda,chan,species)
    real(Float64), dimension(:,:,:,:), allocatable :: halo
        !+ Thermal halo emission stark components: halo(n_stark,lambda,chan,species)
    real(Float64), dimension(:,:,:,:,:), allocatable :: halostokes
        !+ Thermal halo emission stark components: halo(n_stark,4,lambda,chan,species)
    real(Float64), dimension(:,:,:,:), allocatable :: cold
        !+ Cold D-alpha emission stark components: cold(n_stark,lambda,chan,species)
    real(Float64), dimension(:,:,:,:,:), allocatable :: coldstokes
        !+ Cold D-alpha emission stark components: coldstokes(n_stark,4,lambda,chan,species)
    real(Float64), dimension(:,:,:,:), allocatable :: fida
        !+ Active FIDA emission stark components: fida(n_stark,lambda,chan,orbit_type)
    real(Float64), dimension(:,:,:,:,:), allocatable :: fidastokes
        !+ Active FIDA emission stark components: fidastokes(n_stark,4,lambda,chan,orbit_type)
    real(Float64), dimension(:,:,:,:), allocatable :: pfida
        !+ Passive FIDA emission stark components: pfida(n_stark,lambda,chan,orbit_type)
    real(Float64), dimension(:,:,:,:,:), allocatable :: pfidastokes
        !+ Passive FIDA emission stark components: pfidastokes(n_stark,4,lambda,chan,orbit_type)
end type Spectra