Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Fibonacci-sequence/Fortran/fibonacci-sequence-4.f
+++ b/Task/Fibonacci-sequence/Fortran/fibonacci-sequence-4.f
@ -0,0 +1,20 @@
+    function fibI(n)
+        integer, intent(in) :: n
+        integer, parameter :: fib0 = 0, fib1 = 1
+        integer            :: fibI, back1, back2, i
+
+        select case (n)
+            case (:0);      fibI = fib0
+            case (1);       fibI = fib1
+
+            case default
+                fibI = fib1
+                back1 = fib0
+                do i = 2, n
+                    back2 = back1
+                    back1 = fibI
+                    fibI   = back1 + back2
+                end do
+         end select
+    end function fibI
+end module fibonacci