subroutine count	(	real (kind=kind_io8), dimension(1)	slimsk,
		real (kind=kind_io8), dimension(1)	sno,
		integer	ijmax
	)

Referenced by fixrdc_tile().