811 nwords = word_split(line, this%word_start, this%word_end)
815 DO WHILE(nw < nwords)
818 DO WHILE(nw < nwords)
820 ncols_next_word = this%word_end(nw) - this%word_start(nw) + 1
821 IF (words_in_line > 0) ncols_next_word = ncols_next_word + 1
822 IF (columns_in_line + ncols_next_word <= this%ncols .OR. &
823 words_in_line == 0)
THEN