predict_plumerise()

subroutine module_smoke_plumerise::predict_plumerise	(	integer	npts,
		real(kind=kind_phys), dimension(*)	ac,
		real(kind=kind_phys), dimension(*)	ap,
		real(kind=kind_phys), dimension(*)	fa,
		real(kind=kind_phys), dimension(*)	af,
		integer	iac,
		real(kind=kind_phys)	dtlp,
		real(kind=kind_phys)	epsu
	)