Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!wasatch!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!decwrl!sun!fatcity!khb
From: khb@fatcity.Sun.COM (Keith Bierman Sun Tactical Engineering)
Newsgroups: comp.lang.fortran
Subject: Re: FORTRAN porting question
Message-ID: <97751@sun.Eng.Sun.COM>
Date: 6 Apr 89 09:41:48 GMT
References: <1868@quanta.eng.ohio-state.edu>
Sender: news@sun.Eng.Sun.COM
Reply-To: khb@sun.UUCP (Keith Bierman Sun Tactical Engineering)
Distribution: usa
Organization: Sun Microsystems, Mountain View
Lines: 26

In article <1868@quanta.eng.ohio-state.edu> kaul@icarus.eng.ohio-state.edu (Rich Kaul) writes:
>
>I've been given the dubious honor of porting some rather awful FORTRAN
>...

>	IF (I.EQ.J) GOTO 1000
>	...
>	DO 1000 K=1,77
>	...
>   1000 CONTINUE
>
>My question is, how should this behave?  I don't think this is good
>ORTRAN 

You are right. It's not.

	if (i .ne.  j) then
	   do k = 1, 77
	      ...
	   end do
	end if

Is cleaner. The HP might require do 1000 rather than using the f88
style loop.
Keith H. Bierman
It's Not My Fault ---- I Voted for Bill & Opus