Indexed DO Loops

Loops can be written which cycle a fixed number of times.

The syntax is as follows,

 
DO    DO-var   =   expr1   ,   expr2    [ ,   expr3    ]
  
		    exec-stmts   

END DO

For example,

    DO i1 = 1, 100, 1
      ...
    END DO

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