remove half working fortran and html_twig

This commit is contained in:
nightwing 2013-04-06 13:13:54 +04:00
commit ab1ed57d55
7 changed files with 1 additions and 1031 deletions

View file

@ -1,28 +0,0 @@
! sum.f90
! Performs summations using in a loop using EXIT statement
! Saves input information and the summation in a data file
program summation
implicit none
integer :: sum, a
print*, "This program performs summations. Enter 0 to stop."
open(unit=10, file="SumData.DAT")
sum = 0
do
print*, "Add:"
read*, a
if (a == 0) then
exit
else
sum = sum + a
end if
write(10,*) a
end do
print*, "Summation =", sum
write(10,*) "Summation =", sum
close(10)