/usr/lib64/python2.6/site-packages/numpy/distutils/tests/f2py_ext/src/
/usr/lib64/python2.6/site-packages/numpy/distutils/tests/f2py_ext/src
NameSizeModeActions
fib1.f3470644editdlrm
fib2.pyf2420644editdlrm
Edit: /usr/lib64/python2.6/site-packages/numpy/distutils/tests/f2py_ext/src/fib1.f (347B)
C FILE: FIB1.F SUBROUTINE FIB(A,N) C C CALCULATE FIRST N FIBONACCI NUMBERS C INTEGER N REAL*8 A(N) DO I=1,N IF (I.EQ.1) THEN A(I) = 0.0D0 ELSEIF (I.EQ.2) THEN A(I) = 1.0D0 ELSE A(I) = A(I-1) + A(I-2) ENDIF ENDDO END C END FILE FIB1.F