In this guide, we will discuss Fortran do while loop construct. It repeats a statement or a group of statements while a given condition is true. It tests the condition before executing the loop body.
Syntax
do while (logical expr) statements end do
Flow Diagram
Example
program factorial
implicit none
! define variables
integer :: nfact = 1
integer :: n = 1
! compute factorials
do while (n <= 10)
nfact = nfact * n
n = n + 1
print*, n, " ", nfact
end do
end program factorial
When the above code is compiled and executed, it produces the following result −
2 1 3 2 4 6 5 24 6 120 7 720 8 5040 9 40320 10 362880 11 3628800
Next Topic : Click Here
Pingback: Fortran - Do Loop Construct | Adglob Infosystem Pvt Ltd
Pingback: Fortran - Loops | Adglob Infosystem Pvt Ltd