indexed_sum_profile Subroutine

publicpure subroutine indexed_sum_profile(source, ind, dest)

Arguments

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

Contents