remove half working fortran and html_twig
This commit is contained in:
parent
73f299d3f0
commit
ab1ed57d55
7 changed files with 1 additions and 1031 deletions
|
|
@ -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)
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue