Practice1.f90

PROGRAM sumIntegers
IMPLICIT NONE

! Programmer: Nate Benes
! Purpose:    Sums the integers from 1 to 100

INTEGER :: i    ! For the DO Loop
INTEGER :: total  ! To keep a running total

! Initialize our counter
total = 0

! I can set this up a few different ways,
! but this is the simplest
! Loop from 1 to 100 and count by 1's
DO i=1,100,1
    total = total + i
END DO
WRITE(*,*) total  ! Display the output to the screen

END PROGRAM