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 824 columns_in_line = columns_in_line + ncols_next_word
825 words_in_line = words_in_line + 1