subroutine bktges	(	real (kind=kind_io8), dimension(len,lsoil)	smcfcs,
		real (kind=kind_io8), dimension(len)	slianl,
		real (kind=kind_io8), dimension(len,lsoil)	stcfcs,
		integer	len,
		integer	lsoil
	)