Module UVES_ORDERS
   !
   USE CONFIG
   !
   Implicit None
   !
   Private
   !Public :: UVES_SEC
   Public :: Norder, l_min, l_max, order
   !
   Integer, parameter                 :: Norder = 37
   Real, dimension(Norder), parameter :: l_min = (/ &
      6730,6650,6580,6520,6440,6380,6310,6240,6180, &
      6110,6060,5990,5940,5880,5830,5720,5660,5610,5560, &
      5510,5460,5410,5360,5310,5270,5220,5180,5130,5090,5050, &
      5010,4970,4930,4890,4850,4810,4770 /)
   Real, dimension(Norder), parameter :: l_max = (/ &
      6830,6760,6690,6610,6550,6480,6410,6350,6280,6210, &
      6150,6100,6040,5980,5920,5760,5750,5700,5650,5590, &
      5540,5490,5450,5400,5350,5300,5260,5220,5170,5130, &
      5090,5040,5010,4970,4920,4890,4850 /)
   Integer, dimension(Norder), parameter :: order = (/ &
      90,91,92,93,94,95,96,97,98,99, &
      100,101,102,103,104,106,107,108,109,110, &
      111,112,113,114,115,116,117,118,119,120, &
      121,122,123,124,125,126,127 /)
   Character(len=256) :: info_UVES = ''
   !
   CONTAINS
   !
   Subroutine UVES_SPEC()   
!       !
!       Do I = 1, Norder
!         !
!         end_fin = .FALSE.
!         !
!         If (one_elt_only) Then
!            If (Ion_min == Ion_max) Then
!               fout = 'Linelist_VALD_XXX_UVES_XXX_FH.dat'
!               Write(fout(15:17), '(A2, I0)', iostat = ios) one_elt, Ion_min
!               If(ios /= 0) STOP "PROGRAM CONVERT_LINELIST: PB-11"
!               Write(fout(24 : 26), '(I3.3)', iostat = ios) order(I)               
!            Else
!               fout = 'Linelist_VALD_XX_UVES_XXX_FH.dat'
!               Write(fout(15:16), '(A)', iostat = ios) one_elt
!               If(ios /= 0) STOP "PROGRAM CONVERT_LINELIST: PB-12"
!               Write(fout(23 : 25), '(I3.3)', iostat = ios) order(I)
!            EndIf
!         Else
!            fout = 'Linelist_VALD_UVES_XXX_FH.dat'
!         End If
!         !
!
!         Write(*, *) 'Generating fout = ', Trim(fout) 
!         Write(*, *) 'order =', order(I), ', l_min = ', l_min(I), ', l_max = ', l_max(I)  
!         !          
!         Open(unit = 10, file = finp, status = 'old', position = 'rewind', iostat = ios)
!         If(ios /= 0) STOP "PROGRAM CONVERT_LINELIST: PB-04"
!         Open(unit = 20, file = fout, status = 'replace', position = 'rewind', iostat = ios)
!         If(ios /= 0) STOP "PROGRAM CONVERT_LINELIST: PB-05"
!         Open(unit = 30, file = fnul, status = 'replace', iostat = ios)
!         If(ios /= 0) STOP "PROGRAM CONVERT_LINELIST: PB-11"
!         !
!         info_UVES ='Linelist from VALD for UVES order XXX [XXXX XXXX] A'
!         Write(info_UVES(35 : 37), '(I3.3)', iostat = ios) order(I)
!         If(ios /= 0) STOP "PROGRAM CONVERT_LINELIST: PB-06"
!         Write(info_UVES(40 : 43), '(I4.4)', iostat = ios) Int(l_min(I))
!         If(ios /= 0) STOP "PROGRAM CONVERT_LINELIST: PB-07"
!         Write(info_UVES(45 : 48), '(I4.4)', iostat = ios) Int(l_max(I))
!         If(ios /= 0) STOP "PROGRAM CONVERT_LINELIST: PB-08"
!         !
!         Write(20, '(A)', iostat = ios) Trim(info_UVES)
!         If(ios /= 0) STOP "PROGRAM CONVERT_LINELIST: PB-09"                         
!         !
!         Do
!           Call READ_VALD(line, end_fin, N)
!           IF (end_fin) EXIT
!           Call WRITE_MOOG_FMT(line, M1, M2, l_min(I), l_max(I))
!         End Do
!         !
!         Close(20)
!         !
!       End Do
!       !
!       Close(10)
!       Close(30)
!       !
!     End If
!     !
!  !
ENd Subroutine UVES_SPEC
!
End Module UVES_ORDERS