projects
/
unres.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
update new files
[unres.git]
/
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