s3_log_error Subroutine

public subroutine s3_log_error(message)

Log an error message.

@param[in] message Error message to log

Arguments

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

Source Code

    subroutine s3_log_error(message)
        character(len=*), intent(in) :: message
        if (current_log_level >= S3_LOG_LEVEL_ERROR) then
            write(*, '(A,A)') '[S3 ERROR] ', trim(message)
        end if
    end subroutine s3_log_error