[comp.lang.fortran] Fortran 8x and Repeat Until loops s

hirchert@uxe.cso.uiuc.edu (12/15/89)

sp4@beach.cis.ufl.edu asks:
>Does anyone know if the fortran 8X standard Includes a loop structure
>Similar to the following:
>
>                 J=0
>                 Repeat
>                    J=J+1 
>                 Until(line(J:J).eq.' ')
>
>This sort of routine is quite useful in amny circumstances....
>If it is not included does anyone know why not??  I know this 
>can be simulated quite easily but, the clarity is what counts here

What Fortran 8x contains is a general loop with exit.  With it, you would
write:

	J=0
	DO
	   J=J+1
	   IF (LINE(J:J).EQ.' ') EXIT
        END DO

Is that close enough to what you want?

Kurt W. Hirchert     hirchert@ncsa.uiuc.edu
National Center for Supercomputing Applications