Loops can be written which cycle a fixed number of times. For example,
DO i1 = 1, 100, 1 ... ! i is 1,2,3,...,100 ... ! 100 iterations END DO
The formal syntax is as follows,
DO < DO-var >=< expr1 >
,< expr2 > [
,< expr3 > ] < exec-stmts >
The number of iterations, which is evaluated before execution of the loop begins, is calculated as
MAX(INT((< expr2 >-< expr1 >+< expr3 >)/< expr3 >),0)If this is zero or negative then the loop is not executed.
If < expr3 > is absent it is assumed to be equal to 1.
For more information, click here