anchor.diff:                !
                 write(out,"(a1)",advance="yes") " "
                 !
  -           !endif 
  +           endif 
              !
              cycle
           end if
  
positive.code:               case ("N")
                  !
                  call readf(species(i)%N)
                  !
                case ("RATIO")
                  !
  
negative.code:           !
          case ("HITRAN")
            !
            hitran_do = .true.
            !
            call read_line(eof) ; if (eof) exit
            call readu(w)
            !
            do while (trim(w)/="".and.trim(w)/="END")
              !
              select case(w)
              !
              case('WRITE')
              !
              hitran_do = .false.
              stick_hitran = .true.
              !
              case('ID')
                !
                call readi(hitran%molec_id)
                !
                if (hitran%molec_id<0) call report ("Illegal molec_id "//trim(w),.true.)
                !
              case ("ISO","ISO_ID")
                !
                call readi(hitran%molec_iso_id)
                !
              case default
                !
                call report ("Unrecognized unit name "//trim(w),.true.)
                !
              end select
              !
              call read_line(eof) ; if (eof) exit
              call readu(w)
              !
            enddo          !
          case ("SELECT","FILTER")
            !
            filter  = .true.
  