functionskip_blankspureprivate

pure integer function skip_blanks(text, from) result(at)
    character(len=*), intent(in) :: text    !! the text
    integer, intent(in) :: from             !! where to start

    at = from
    do while (at <= len(text))
        if (.not. is_blank(text(at:at))) exit
        at = at + 1
    end do
end function skip_blanks