Ńň
Kc @ sP d Z d Z d d d Z e d j o! d d k l Z e d e n d S( s
C FILE: FIB3.F
SUBROUTINE FIB(A,N)
C
C CALCULATE FIRST N FIBONACCI NUMBERS
C
INTEGER N
REAL*8 A(N)
Cf2py intent(in) n
Cf2py intent(out) a
Cf2py depend(n) a
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 FIB3.F
c C sr d d k } d d k l } | i i | d } | t | o* t | d } | i t | i n | g S( Ni˙˙˙˙( t newers fib3.ft w(
t ost distutils.dep_utilR t patht joint __file__t opent writet fib3_ft close( t extt build_dirR R t targett f( ( sI /usr/lib64/python2.6/site-packages/numpy/distutils/tests/gen_ext/setup.pyt source_func s
t c C s9 d d k l } | d | | } | i d t g | S( Ni˙˙˙˙( t
Configurationt gen_extt fib3( t numpy.distutils.misc_utilR t
add_extensionR ( t parent_packaget top_pathR t config( ( sI /usr/lib64/python2.6/site-packages/numpy/distutils/tests/gen_ext/setup.pyt
configuration% s
t __main__i˙˙˙˙( t setupR N( R R t NoneR t __name__t numpy.distutils.coreR ( ( ( sI /usr/lib64/python2.6/site-packages/numpy/distutils/tests/gen_ext/setup.pyt s