add.f90 216 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14

subroutine zadd( a, b, c, n )
  double complex a( * )
  double complex b( * )
  double complex c( * )
  integer n

  do j = 1, n
     c( j ) = a( j ) + b( j )
  end do

end subroutine zadd

! f2py -c -m add add.f90