anchor.diff:      integer(ik) :: ierr = 0           ! Number of QN-entries
       !
     end type HitranErrorT
  -
     !
     type(selectT) :: upper(filtermax),lower(filtermax)
     !
  
positive.code:         !
        endif
        !
        allocate(quantum_numbers(0:maxitems,iline),nchars_quanta(maxitems),stat=info)
        call ArrayStart('quantum_numbers',info,size(quantum_numbers),kind(quantum_numbers))
        call ArrayStart('nchars_quanta',info,size(nchars_quanta),kind(nchars_quanta))
        !
  
negative.code:    integer(ik),allocatable :: gtot(:),indices(:)
     character(len=20),allocatable :: quantum_numbers(:,:)
     !
     real(rk),allocatable :: acoef_RAM(:),abscoef_ram(:),nu_ram(:),energyi_ram(:)
     integer(ik),allocatable :: indexi_RAM(:),indexf_RAM(:)
     integer(ik),allocatable :: ileveli_RAM(:),ilevelf_RAM(:)
     integer(ik) :: kswaps,iswaps,nswap_,nswap,iswap,iswap_
     !
     integer(ik),allocatable :: nchars_quanta(:)  ! max number of characters used for each quantum number
     !
     character(len=9) :: npoints_fmt  !text variable containing formats for reads/writes
  