File: types.f90

package info (click to toggle)
alfa 2.2-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 17,796 kB
  • sloc: f90: 3,426; makefile: 83
file content (23 lines) | stat: -rw-r--r-- 434 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
!Copyright (C) 2013- Roger Wesson
!Free under the terms of the GNU General Public License v3

module mod_types

type spectrum
  real :: wavelength
  real :: flux
  real :: uncertainty
end type

type linelist
  real :: wavelength
  real :: peak
  real :: uncertainty
  real :: redshift
  real :: resolution
  character(len=12) :: ion,multiplet,lowerterm,upperterm
  integer :: g1,g2
  integer :: blended
end type

end module mod_types