YAPC::EU 2018 Glasgow Update!

Task/Fibonacci-sequence/Fortran/fibonacci-sequence-3.f

@@ -1,12 +1,11 @@
-module fibonacci
-contains
-    recursive function fibR(n) result(fib)
-        integer, intent(in) :: n
-        integer             :: fib
-
-        select case (n)
-            case (:0);      fib = 0
-            case (1);       fib = 1
-            case default;   fib = fibR(n-1) + fibR(n-2)
-        end select
-    end function fibR
+      EXTERNAL IFIB
+      CHARACTER*10 LINE
+      PARAMETER ( LINE = '----------' )
+      WRITE(*,900) 'N', 'F[N]', 'F[-N]'
+      WRITE(*,900) LINE, LINE, LINE
+      DO 1 N = 0, 10
+        WRITE(*,901) N, IFIB(N), IFIB(-N)
+    1 CONTINUE
+  900 FORMAT(3(X,A10))
+  901 FORMAT(3(X,I10))
+      END