add_indexed_sum Subroutine

publicpure subroutine add_indexed_sum(source, ind, dest)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=jprb),	intent(in)			::	source(:)
integer,	intent(in)			::	ind(:)
real(kind=jprb),	intent(inout)			::	dest(:)

Contents