log_info Subroutine

    subroutine log_info(message)
        character(len=*), intent(in) :: message
        if (current_verbose_level >= LEVEL_INFO) then
            write (*, '(A)') message
        end if
    end subroutine log_info