Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!uwm.edu!ux1.cso.uiuc.edu!ux1.cso.uiuc.edu!uxe.cso.uiuc.edu!hirchert
From: hirchert@uxe.cso.uiuc.edu
Newsgroups: comp.lang.fortran
Subject: Re: Fortran 8x and Repeat Until loops s
Message-ID: <50500172@uxe.cso.uiuc.edu>
Date: 15 Dec 89 01:36:49 GMT
References: <21470@uflorida.cis.ufl.EDU>
Lines: 27
Nf-ID: #R:uflorida.cis.ufl.EDU:21470:uxe.cso.uiuc.edu:50500172:000:724
Nf-From: uxe.cso.uiuc.edu!hirchert    Dec 14 10:42:00 1989


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