diff options
Diffstat (limited to 'doc/numpybook/comparison/f2py/add.f')
| -rw-r--r-- | doc/numpybook/comparison/f2py/add.f | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/doc/numpybook/comparison/f2py/add.f b/doc/numpybook/comparison/f2py/add.f deleted file mode 100644 index 26e45da34..000000000 --- a/doc/numpybook/comparison/f2py/add.f +++ /dev/null @@ -1,45 +0,0 @@ -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 - |