Files
Victor Eijkhout b13edff125 initial upload
2022-11-13 14:03:01 -06:00

22 lines
502 B
Fortran

!****************************************************************
!***
!*** This file belongs with the course
!*** Introduction to Scientific Programming in C++/Fortran2003
!*** copyright 2017-2020 Victor Eijkhout eijkhout@tacc.utexas.edu
!***
!*** loopr.F90 : real loop index
!***
!****************************************************************
program loops
implicit none
!!codesnippet fdoreal
real(4) :: r
do r=.1,1.,.1
print *,r
end do
!!codesnippet end
end program loops