subroutine rof01	(	real (kind=kind_io8), dimension(len)	aisfld,
		integer	len,
		character*2	op,
		real (kind=kind_io8)	crit
	)

Referenced by setrmsk(), and sfccycle().