diff options
Diffstat (limited to 'doc/source/f2py/code/add-improved.f')
| -rw-r--r-- | doc/source/f2py/code/add-improved.f | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/doc/source/f2py/code/add-improved.f b/doc/source/f2py/code/add-improved.f new file mode 100644 index 000000000..f12b6560b --- /dev/null +++ b/doc/source/f2py/code/add-improved.f @@ -0,0 +1,16 @@ + C + SUBROUTINE ZADD(A,B,C,N) + C + CF2PY INTENT(OUT) :: C + CF2PY INTENT(HIDE) :: N + CF2PY DOUBLE COMPLEX :: A(N) + CF2PY DOUBLE COMPLEX :: B(N) + CF2PY DOUBLE COMPLEX :: C(N) + 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
\ No newline at end of file |