search Subroutine

subroutine search(sch, max, cfind, iseq)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=50),			dimension(max)	::	sch
integer				::	max
character(len=50)				::	cfind
integer				::	iseq