htint()

subroutine module_smoke_plumerise::htint	(	integer, intent(in)	nzz1,
		real(kind=kind_phys), dimension(nzz1), intent(in)	vctra,
		real(kind=kind_phys), dimension(nzz1), intent(in)	eleva,
		integer, intent(in)	nzz2,
		real(kind=kind_phys), dimension(nzz2), intent(out)	vctrb,
		real(kind=kind_phys), dimension(nzz2), intent(in)	elevb,
		character(*), intent(inout)	errmsg,
		integer, intent(inout)	errflg )