diff options
Diffstat (limited to 'doc/source/f2py/code/add-test.f')
| -rw-r--r-- | doc/source/f2py/code/add-test.f | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/doc/source/f2py/code/add-test.f b/doc/source/f2py/code/add-test.f new file mode 100644 index 000000000..1d52e47bb --- /dev/null +++ b/doc/source/f2py/code/add-test.f @@ -0,0 +1,10 @@ + subroutine addb(k) + real(8), intent(inout) :: k(:) + k=k+1 + endsubroutine + + subroutine addc(w,k) + real(8), intent(in) :: w(:) + real(8), intent(out) :: k(size(w)) + k=w+1 + endsubroutine
\ No newline at end of file |