rm fort dir
[scilab.git] / scilab_doc / intro / fort / fibb.f
1       subroutine fibb(fn,n)
2
3 c     Copyright INRIA
4       n0=0
5       n1=1
6       if(n.ge.3)then
7       do 10 k=1,n-2
8          fn=n0+n1
9          n0=n1
10          n1=fn
11  10   continue
12       else
13          fn=n-1
14       endif
15       return
16       end