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