JiscMail Logo
Email discussion lists for the UK Education and Research communities

Help for COMP-FORTRAN-90 Archives


COMP-FORTRAN-90 Archives

COMP-FORTRAN-90 Archives


COMP-FORTRAN-90@JISCMAIL.AC.UK


View:

Message:

[

First

|

Previous

|

Next

|

Last

]

By Topic:

[

First

|

Previous

|

Next

|

Last

]

By Author:

[

First

|

Previous

|

Next

|

Last

]

Font:

Proportional Font

LISTSERV Archives

LISTSERV Archives

COMP-FORTRAN-90 Home

COMP-FORTRAN-90 Home

COMP-FORTRAN-90  2006

COMP-FORTRAN-90 2006

Options

Subscribe or Unsubscribe

Subscribe or Unsubscribe

Log In

Log In

Get Password

Get Password

Subject:

End of file errors using intrinsic function INDEX

From:

Lewis Balfour <[log in to unmask]>

Reply-To:

Fortran 90 List <[log in to unmask]>

Date:

Tue, 28 Mar 2006 18:11:41 +0200

Content-Type:

text/plain

Parts/Attachments:

Parts/Attachments

text/plain (50 lines)

Hi

I am using the INDEX intrisic function on a file inside a DO WHILE loop to dictate the operations performed on the file. This bit of code forks fine:

DO WHILE (INDEX(STRING,'Connectivity').EQ.3
     &            .OR.INDEX(STRING,'domain').EQ.6)

On lines in my file like this:

# Connectivity for domain.16
967  domain.16  -j k-i          f      33      1      1      1    122      1

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.

I'm using Intel Fortran 7.1

Many thanks

Lewis

*****************************************
l.j.balfour at lboro.ac.uk
Research Student
Rolls-Royce UTC in Combustor Aerodynamics
Loughborough University
*****************************************

Top of Message | Previous Page | Permalink

JISCMail Tools


RSS Feeds and Sharing


Advanced Options


Archives

April 2014
March 2014
February 2014
January 2014
December 2013
November 2013
July 2013
June 2013
May 2013
April 2013
February 2013
January 2013
December 2012
November 2012
October 2012
September 2012
August 2012
July 2012
June 2012
April 2012
March 2012
February 2012
January 2012
December 2011
November 2011
October 2011
September 2011
August 2011
July 2011
June 2011
May 2011
April 2011
March 2011
February 2011
January 2011
December 2010
November 2010
October 2010
August 2010
July 2010
June 2010
March 2010
February 2010
January 2010
December 2009
October 2009
August 2009
July 2009
June 2009
March 2009
February 2009
January 2009
December 2008
November 2008
October 2008
September 2008
August 2008
July 2008
June 2008
May 2008
April 2008
March 2008
February 2008
December 2007
November 2007
October 2007
September 2007
August 2007
July 2007
June 2007
May 2007
April 2007
March 2007
January 2007
2006
2005
2004
2003
2002
2001
2000
1999
1998
1997


WWW.JISCMAIL.AC.UK

Secured by F-Secure Anti-Virus CataList Email List Search Powered by the LISTSERV Email List Manager