diff options
| author | Stefan van der Walt <stefan@sun.ac.za> | 2008-08-23 23:55:01 +0000 |
|---|---|---|
| committer | Stefan van der Walt <stefan@sun.ac.za> | 2008-08-23 23:55:01 +0000 |
| commit | 46facee53a506cd26c00ad12d482a682b0176404 (patch) | |
| tree | 563e932b1888e28c19a0ca6cc0f6e02bfe0b6f3f /doc/numpybook/comparison/f2py/add.f | |
| parent | d14243ca1fa3373babfd5b699e12dff177f60dba (diff) | |
| download | numpy-46facee53a506cd26c00ad12d482a682b0176404.tar.gz | |
Move book to docs directory.
Diffstat (limited to 'doc/numpybook/comparison/f2py/add.f')
| -rw-r--r-- | doc/numpybook/comparison/f2py/add.f | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/doc/numpybook/comparison/f2py/add.f b/doc/numpybook/comparison/f2py/add.f new file mode 100644 index 000000000..26e45da34 --- /dev/null +++ b/doc/numpybook/comparison/f2py/add.f @@ -0,0 +1,45 @@ +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 + + SUBROUTINE CADD(A,B,C,N) +C + COMPLEX A(*) + COMPLEX B(*) + COMPLEX C(*) + INTEGER N + DO 20 J = 1, N + C(J) = A(J) + B(J) + 20 CONTINUE + END + + SUBROUTINE DADD(A,B,C,N) +C + DOUBLE PRECISION A(*) + DOUBLE PRECISION B(*) + DOUBLE PRECISION C(*) + INTEGER N + DO 20 J = 1, N + C(J) = A(J) + B(J) + 20 CONTINUE + END + + SUBROUTINE SADD(A,B,C,N) +C + REAL A(*) + REAL B(*) + REAL C(*) + INTEGER N + DO 20 J = 1, N + C(J) = A(J) + B(J) + 20 CONTINUE + END + |