Lewis Balfour wrote:
>Hi
>
>
>But some the lines in the file are like this;
>
># Connectivity for domain.17
>1043 domain.17 j k-i f 1 1 1 12 122 1
>
>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?
>
>The file definately continues after the line it fails at.
>
>
>
The error message suggests you tried to read past the end of an internal
file. I'm guessing that you are using STRING as the internal file and
rescanning it with a list-directed read statement to pick up the values
following 'domain'. Is it possible that the input line is defective?
Or perhaps the input line is a bit longer than STRING, and the last
value on the line did not make it into the string? This might be a
characteristic of one of the lines where 'domain' starts in position 7,
which would explain why changing the while test resulted in the error.
Cheers,
Bill
--
Bill Long [log in to unmask]
Fortran Technical Support & voice: 651-605-9024
Bioinformatics Software Development fax: 651-605-9142
Cray Inc., 1340 Mendota Heights Rd., Mendota Heights, MN, 55120
|