print_error Subroutine

public subroutine print_error(message)

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

Arguments

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

Source Code

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