mirror of
https://github.com/numpy/numpy.git
synced 2026-10-29 08:55:25 +08:00
12 lines
201 B
FortranFixed
12 lines
201 B
FortranFixed
C
|
|
SUBROUTINE ZADD(A,B,C,N)
|
|
C
|
|
DOUBLE COMPLEX A(*)
|
|
DOUBLE COMPLEX B(*)
|
|
DOUBLE COMPLEX C(*)
|
|
INTEGER N
|
|
DO 20 J = 1, N
|
|
C(J) = A(J)+B(J)
|
|
20 CONTINUE
|
|
END
|