HP Fortran Programmer's Reference

Execution control
Flow control statements
Example
! find the 50th triangular number
triangular_num = 0
DO 10 i = 1, 50
triangular_num = triangular_num + i
10 CONTINUE
PRINT *, triangular_num
CYCLE statement
The CYCLE statement interrupts execution of the current iteration of a DO loop.
Syntax
CYCLE [ do-construct-name ]
Execution logic
1. The current iteration of the enclosing DO loop terminates. Any statements following the
CYCLE statement do not execute.
2. If do-construct-name is specified, the iteration count for the named DO loop decrements.
If do-construct-name is not specified, the iteration count for the immediately enclosing
DO loop decrements.
3.Iftheiterationcountisnonzero,executionresumesatthestartofthestatementblockin
the named (or enclosing) DO loop. If it is zero, the relevant DO loop becomes inactive.
Example
LOGICAL :: even
INTEGER :: number
loop: DO i = 1, 10
PRINT *, ”Enter an integer: ”
READ *, number
IF (number == 0) THEN
PRINT *, ”Must be nonzero.”
CYCLE loop
END IF
even = (MOD(number, 2) == 0)
IF (even) THEN
PRINT *, ”Even”
ELSE
PRINT *, ”Odd”
END IF
END DO loop
114
Chapter 6