subr