summaryrefslogtreecommitdiff
path: root/numpy/f2py/doc/f2python9-final/src/examples/exp1.f
diff options
context:
space:
mode:
authorPauli Virtanen <pav@iki.fi>2014-01-02 22:12:01 +0200
committerPauli Virtanen <pav@iki.fi>2014-01-02 22:19:47 +0200
commit75c2d2fe3cc9daa6589707fb6b8512ffa48fc365 (patch)
tree32e729ca94dd28e06c7c2e10fd250f2ce4b91a2a /numpy/f2py/doc/f2python9-final/src/examples/exp1.f
parenta32807e61b25205cc08d552127234b56709c6242 (diff)
downloadnumpy-75c2d2fe3cc9daa6589707fb6b8512ffa48fc365.tar.gz
DOC: move f2py documentation under doc/ and link its user guide with Sphinx
Diffstat (limited to 'numpy/f2py/doc/f2python9-final/src/examples/exp1.f')
-rw-r--r--numpy/f2py/doc/f2python9-final/src/examples/exp1.f26
1 files changed, 0 insertions, 26 deletions
diff --git a/numpy/f2py/doc/f2python9-final/src/examples/exp1.f b/numpy/f2py/doc/f2python9-final/src/examples/exp1.f
deleted file mode 100644
index 36bee50b0..000000000
--- a/numpy/f2py/doc/f2python9-final/src/examples/exp1.f
+++ /dev/null
@@ -1,26 +0,0 @@
- subroutine exp1(l,u,n)
-C Input: n is number of iterations
-C Output: l,u are such that
-C l(1)/l(2) < exp(1) < u(1)/u(2)
-C
-Cf2py integer*4 :: n = 1
-Cf2py intent(out) l,u
- integer*4 n,i
- real*8 l(2),u(2),t,t1,t2,t3,t4
- l(2) = 1
- l(1) = 0
- u(2) = 0
- u(1) = 1
- do 10 i=0,n
- t1 = 4 + 32*(1+i)*i
- t2 = 11 + (40+32*i)*i
- t3 = 3 + (24+32*i)*i
- t4 = 8 + 32*(1+i)*i
- t = u(1)
- u(1) = l(1)*t1 + t*t2
- l(1) = l(1)*t3 + t*t4
- t = u(2)
- u(2) = l(2)*t1 + t*t2
- l(2) = l(2)*t3 + t*t4
- 10 continue
- end