diff options
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 + |