/
usr
/
lib64
/
python2.6
/
site-packages
/
numpy
/
distutils
/
tests
/
f2py_ext
/
src
/
/usr/lib64/python2.6/site-packages/numpy/distutils/tests/f2py_ext/src
mkdir
upload
Name
Size
Mode
Actions
fib1.f
347
0644
edit
dl
rm
fib2.pyf
242
0644
edit
dl
rm
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
Save
cmd:
run