subroutine anomint	(	real (kind=kind_io8), dimension(len)	tsfan0,
		real (kind=kind_io8), dimension(len)	tsfclm,
		real (kind=kind_io8), dimension(len)	tsfcl0,
		real (kind=kind_io8), dimension(len)	tsfanl,
		integer	len
	)

Referenced by sfccycle().