WHILE statement
For compatibility with FTN77, FTN95 offers an alternative WHILE statement. Its
general form is
WHILE (logical expression) DO
. . . .
ENDWHILE
The WHILE-block may contain any executable Fortran statements. WHILE-blocks may
be nested within each other or within IF-, ELSE-, and ELSEIF-blocks and/or DO
statements. The rules of nesting are the same as those for the IF construct.
An ENDWHILE statement can be labelled but may only be referenced from within the
WHILE block.
Example:
J = 0
WHILE(I.NE.0)DO
I = LIST(I)
J = J+1
ENDWHILE
|