subroutine scale	(	real (kind=kind_io8), dimension(len)	fld,
		integer	len,
		real (kind=kind_io8)	scl
	)

Referenced by samfdeepcnv::samfdeepcnv_run(), and sfccycle().