yn Function

function yn(flag) result(mark)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	flag

Return Value character(len=1)