connectEar Subroutine

public subroutine connectEar(obj, direct, stem)

Type Bound

Ear_

Arguments

Type	Intent	Optional	Attributes		Name
class(Ear_),	intent(inout)			::	obj
character(len=2),	intent(in)			::	direct
class(Stem_),	intent(inout)			::	stem