◄Up► ◄Contents► ◄Index► ◄Back►
─────CYCLE──────────────────────────────────────────────────────────────────
 
     Action
 
     Within a loop, advances control to the terminating statement of a
     DO or DO WHILE loop.
 
     Syntax
 
     CYCLE
 
     Remarks
 
     The CYCLE statement skips over the remaining part of a DO or
     DO WHILE loop.
 
     Example
 
     Suppose you wanted to print a table of relativistic time-dilation
     factors for every velocity from 0 to the speed of light, in steps
     of 100 km/second. Perhaps you do not want to calculate these
     factors for speeds less than 10 percent of the speed of light.
     The following example computes the time-dilation factors
     accordingly, putting them in the array timedilation. You can use
     the WRITE statement to print out the array. ___________
     Time-dilation factor: 1 / √ 1 - (v/c)²
 
           INTEGER sub        ! subscript for timedilation array
           REAL timedilation(0:300)
           speedolight = 300000e3        ! 300000 km per second
           speedstep = 100e3             ! 100 km per second
 
           sub = speedolight / speedstep
           DO velocity = 1, speedolight, speedstep
              timedilation(sub) = 1.0
              IF (velocity .LT. (0.1 * speedolight))   CYCLE
              timedilation(sub) =
          +   1.0 / SQRT (1.0 - (velocity / speedolight)**2)
           END DO
                                    -♦-