Hi
>causes the program to fail because of logic contained in the do-while
>loop that is not able to specify the correct columns of data for those
>lines that have a four-digit line number (1000 or greater). If the
>"INDEX(STRING,'domain').EQ.7" test is not included, then those lines are
>simply not processed by the loop and the error is avoided. For example,
>it appears that the line,
> READ(STRING(13:NLEN-1),*) BLKSRC
I had a feeling that something along these lines was wrong. I guess I am going to have to re-write the routine pretty much in its entirety...
Thank you for your help
Lewis
*****************************************
l.j.balfour at lboro.ac.uk
Research Student
Rolls-Royce UTC in Combustor Aerodynamics
Loughborough University
*****************************************
|