anchor.diff:          ! if only stick spectrum needed
           if (proftype(1:5)=='STICK') then
              !
  +           if (hitran) then 
  +             !
  +             write(out,"('HITRAN option has not been implemeneted to worj with STICK yet, try other options')")
  +             stop 'HITRAN is not working with STICK'
  +             !
  +           endif
  +           !
              if (abscoef>thresh)  then 
                 !
                 ! write to .stick-file
  
positive.code:            tranfreq = energyf-energyi
             !
             if (tranfreq<small_) cycle
             !
             select case (trim(specttype))
               !
  
negative.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))
        !
        ! default, min value of number of characters for quantum numbers outputs
        !
        nchars_quanta = 3
        !
        if (verbose>=3) call MemoryReport
        !
  