emit Subroutine

private subroutine emit(tag, msg, threshold)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	tag
character(len=*),	intent(in)			::	msg
integer,	intent(in)			::	threshold