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:             endif
              !
              hitran_do = .false.
              stick_hitran = .true.
              proftype = 'STICK'
              specttype = 'ABSORPTION'
              !
  
negative.code:       endif
        !    
        if (Nspecies/=2) then 
          write(out,"('For HITRAN WRITE the broadening parameters must be provided for two species, not ',i4)") nspecies
          stop "Illegal number of species for HITRAN WRITE, must be 2"
        endif
        !
      endif
      !
      if (stick_oxford) then
        if (trim(proftype)/='STICK') then 
          write(out,"('For OXFORD WRITE use STICK or delete ',a)") trim(proftype)
          stop "Illegal profile for OXFORD WRITE, CHANGE TO STICK"
        endif
        !    
        if (trim(specttype)/='ABSORPTION') then 
          write(out,"('For OXFORD WRITE use ABSORPTION or delete TYPE spectral type ',a)") trim(specttype)
          stop "Illegal profile for OXFORD WRITE, CHANGE TO ABSORPTION"
        endif
        !    
        if (Nspecies/=3) then 
          write(out,"('For OXFORD WRITE the broadening parameters must be provided for 3 species, not ',i4)") nspecies
          stop "Illegal number of species for OXFORD WRITE, must be 3"
        endif
        !
      endif
  