Fibonacci problem - Fortran

Revision 4 vs. Revision 5

Legend:

Unmodified
Added
Removed
  • Code

    r4 r5  
    66 
    77implicit none 
    88! Define the variables. 
    99integer i,n(0:2000),sum 
    1010 
     11print*, 'This program will find the sum of all even Fibonacci numbers' 
     12print*, 'that have values less than 4 million.' 
    1113 
    1214 
    1315! Initialize the Fibonacci Sequence. 
    1416n(0) = 1 
    1517n(1) = 1