anchor.diff:            !
             if (trim(w(1:5))=="STICK".and.Nitems>1) then
               call readu(w)
  -            if (trim(w)=="HITRAN") call report ("Illegal keyord for stick, HITRAN expected not "//trim(w),.true.)
  +            if (trim(w)=="HITRAN") call report ("Illegal keyord for stick, HITRAN is no expected "//trim(w),.true.)
               !
               stick_hitran = .true.
               !
  
positive.code:        write(ioname, '(a)') 'Stick spectrum'
         call IOstart(trim(ioname),sunit)
         !
         if (stick_hitran) then 
           open(unit=sunit,file=trim(output)//".par",action='write',status='replace')
         else
           open(unit=sunit,file=trim(output)//".stick",action='write',status='replace')
  
negative.code:     integer(ik) :: vibcol(2)=8           ! Range of columns with vib quanta 
      integer(ik) :: Nmodes= 1             ! Number of vib modes
      integer(ik) :: Nsym=1                ! Number of symmetries
      integer(ik) :: Rotcol(2)=(/5,6/)     ! Columns with Rot-QNs
      !
    end type QNT
    !
  