On Mar 28, 2006, at 8:11 AM, Lewis Balfour wrote:
> So I have changed my code as follows:
>
> DO WHILE (INDEX(STRING,'Connectivity').EQ.3
> & .OR.INDEX(STRING,'domain').EQ.6
> & .OR.INDEX(STRING,'domain').EQ.7)
>
> But this fails with the following error:
>
> Input/Output Error 153: Input file ended
>
> In Procedure: topobcwrite
> At Line: 249
>
> Statement: List-Directed READ
> Unit: Internal File
> Record Number: Floating point exception
>
> Why does the modified code not work?
You haven't actually posted any of the relevant lines of code. It is
failing of a READ statement - not on the Do WHILE. You haven't shown
that read statement, so I don't know how anyone is supposed to guess
what is wrong with it. Perhaps with enough deduction from the
indirect hints, I *MIGHT*, just might be able to make a wild guess,
but it isn't worth the time to reverse engineer what the code
probably looked like. Such reverse engineering would take far more of
my time than just posting the relevant lines would take of yours.
I suggest you post all of the relevant code.... and that probably
includes more than just the single READ statement involved... I can
imagine seeing just that statement, but then finding that it can't be
understood without surrounding material. For example, declarations
are often critical.
P.S. Off-hand, that looks like a pretty fragile style of test anyway,
but I don't really have enough data to tell, and that's a side matter
anyway.
--
Richard Maine | Good judgment comes from experience;
[log in to unmask] | experience comes from bad judgment.
| -- Mark Twain
|