		subroutine subc
		return
		end
