scasumsub()

subroutine scasumsub	(	integer	n,
		complex, dimension(*)	x,
		integer	incx,
		real	asum
	)