v0.9.0
Functions/Subroutines
scasumsub.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine scasumsub (n, x, incx, asum)
 

Function/Subroutine Documentation

◆ scasumsub()

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

Definition at line 7 of file scasumsub.f.

7 c
8  external scasum
9  real scasum,asum
10  integer n,incx
11  complex x(*)
12 c
13  asum=scasum(n,x,incx)
14  return