print_warning Subroutine

public subroutine print_warning(message)

Print warning message (always shown, verbose level >= 0)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	message

Source Code

    subroutine print_warning(message)
        character(len=*), intent(in) :: message
        print '(a,a)', ' WARNING: ', trim(message)
    end subroutine print_warning