Program counters

[dannyf]

If I have a program like the one shown below and i execute the program 5 times. Each time I execute the program, it will print a number 'x' to the screen. Is there any code I could write to add up the numbers which are printed to the screen each time the program is executed.

Program Sum
Implicit None
Integer :: x,n
print*,type in a value for n
read*,n

x = n + 1

print*,x

End Program Sum

 

[Guest_imported]

c Why not save the sum in a file (SUM) ?
c program savesum
integer oldsum /0/ , x
logical sumfile
inquire (file="SUM",exist=sumfile)
open(7,file="SUM&quot
if(sumfile) then
c A sum already exists , read it :
read(7,*) oldsum
rewind 7
end if
c ....................
c compute x
c ....................
newsum = x + oldsum
write(7,*) newsum
close (7)
end