Project Euler 28: Fortran Atom Feed 0

# 's
 1      program euler28
2
3 implicit none
4 integer summ, num, length, i
5 integer, parameter :: ssize = 1001
6
7
8 num = 1
9 summ = 1
10
11 do length = 3, ssize, 2
12 do i = 1, 4
13 num = num + length-1
14 summ = summ + num
15 enddo
16 enddo
17
18 print *,summ
19
20 stop
21 end program