Skip to content

Instantly share code, notes, and snippets.

@shoya140 shoya140/timer.f90
Created Oct 8, 2012

Embed
What would you like to do?
program timer
integer time_max, i
i = 0
print *, "This program will tell you when X seconds is up."
print *, "Please input X(Real number psease) and push ENTER."
read *, time_max
!count down
do i = time_max, 1, -1
print *, i
call system("sleep 1")
end do
!alarm
do
print *, "Finished!!"
end do
end program timer
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.