source/maxlik/src_FPy/fib3.f

   1 C FILE: FIB3.F
   2       SUBROUTINE FIB(A,N)
   3 C
   4 C     CALCULATE FIRST N FIBONACCI NUMBERS
   5 C
   6       INTEGER N
   7       REAL*8 A(N)
   8 Cf2py intent(in) n
   9 Cf2py intent(out) a
  10 Cf2py depend(n) a
  11       DO I=1,N
  12          IF (I.EQ.1) THEN
  13             A(I) = 0.0D0
  14          ELSEIF (I.EQ.2) THEN
  15             A(I) = 1.0D0
  16          ELSE
  17             A(I) = A(I-1) + A(I-2)
  18          ENDIF
  19       ENDDO
  20       END
  21 C END FILE FIB3.F