module mtd_struct

   type ATOM
      integer          :: Z      = 0        ! Numéro atomique (nbre de protons)
      character(len=2) :: Symbol = 'XX'     ! Elément chimique (limité à 2 lettres)
      character(len=4) :: Ion    = 'XXXX'   ! Etat d'ionisation
   end type ATOM
  
   type LEVELS                      ! Tableau des niveaux d'énergie
      sequence
      character(len=50) :: config = 'spdfghikl' ! Configuration électronique du niveau 
      integer           :: term   = -1          ! Terme spectroscopique SLP
      double precision  :: en_cm  = Huge(0.d0)  ! Energie en cm-1
      double precision  :: en_Ryd = Huge(0.d0)  ! Energie en Rydberg
      double precision  :: en_eV  = Huge(0.d0)  ! Energie en eV
      real              :: g      = Huge(0.)    ! Poids statistique
      integer           :: NTP    = -1          ! Numéro de la table de photoionisation de la TOPBASE
   end type LEVELS

   type LINES                       ! Tableau des transitions
      sequence
      character(len=12) :: config1   = 'spdfghikl'! Configuration électronique du niveau bas 
      integer           :: term1     = -1         ! Terme bas (SL)
      double precision  :: en1_cm    = Huge(0.d0) ! Energie du niveau bas en cm-1
      real              :: J1        = Huge(0.)   ! Moment cinétique total du niveau bas
      character(len=12) :: config2   = 'spdfghikl'! Configuration électronique du niveau haut
      integer           :: term2     = -1         ! Terme haut (SL)
      double precision  :: en2_cm    = Huge(0.d0) ! Energie du niveau haut en cm-1
      real              :: J2        = Huge(0.)   ! Moment cinétique total du niveau haut
      double precision  :: en_cm     = Huge(0.d0) ! Energie de la transion en cm-1
      real              :: lambda_nm = Huge(0.)   ! Longueur d'onde de la transition en nm
      real              :: loggf     = Huge(0.)   ! Sans dimension
      real              :: Aij       = Huge(0.)   ! Coefficient de dé-excitation radiatif spontané (s-1)
      real              :: Gr        = Huge(0.)   ! Largeur naturelle de la transition
   end type LINES

   type PHOTOIONS                      ! Tableau des photoionisations
      sequence
      double precision     :: en_cm  = Huge(0.d0)  ! Energie d'ionisation du niveau en cm-1
      double precision     :: en_Ryd = Huge(0.d0)  ! Energie d'ionisation du niveau en Rydberg
      integer              :: term   = -1          ! Terme spectroscopique du niveau
      integer              :: N      = -1          ! Nombre de sections efficaces dans la table 
      real,dimension(2000) :: en_tab   = Huge(0.) ! Energies d'ionisation en Rydberg
      real,dimension(2000) :: seff_tab = Huge(0.) ! Sections efficaces en cm2
   end type PHOTOIONS

   type INDEXLINES                  ! Table des transitions précédés des numéros de niveaux
      ! sequence
      integer :: Nj = -1                 ! Numéro du niveau haut
      integer :: Ni = -1                 ! Numéro du niveau bas
      real    :: loggf = HUGE(0.)        ! Force d'oscillateur
      real    :: Aij   = HUGE(0.)        ! Coefficient de de-excitation radiatif spontané 
      real    :: Gr    = HUGE(0.)        ! Gamma radiatif
      real    :: lambda_nm = HUGE(0.)    ! Longueur d'onde de la transition en nm
   end type INDEXLINES

end module mtd_struct