log_error Subroutine

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