forums.silverfrost.com

oggyogg · Guest

i have this error, a y help plz

Runtime error from program:c:\users\ogchm\desktop\passfem\passfem.exe
Run-time Error
*** Error 59, There is no repeatable edit descriptor in this format

004044b0 TRUS1 [+040d]

00404280 THREDT [+01b5]

004034a0 FELIB [+010c]

00401000 main [+0a8f]

PaulLaidler · Posted: Thu Jul 09, 2015 6:54 pm Post subject:

You will need to post the lines of code that relate to the error report.

JohnCampbell · Joined: 16 Feb 2006 Posts: 2554 Location: Sydney

If you compile with /debug, you will then get the line number to indicate what format statement has a problem. It is probably due to a Fortran language extension that is not supported by FTN95

rogerh · Joined: 02 Nov 2014 Posts: 46 Location: Longmont, CO

I have the same problem with this code

JohnCampbell · Joined: 16 Feb 2006 Posts: 2554 Location: Sydney

You have the incorrect order for A size; it is Aw, as:

rogerh · Joined: 02 Nov 2014 Posts: 46 Location: Longmont, CO

That's what I thought but changing it didn't help.

Same error on the "write (4,12) " line.

Roger

JohnCampbell · Joined: 16 Feb 2006 Posts: 2554 Location: Sydney

not in quotes

rogerh · Joined: 02 Nov 2014 Posts: 46 Location: Longmont, CO

What I'm trying to do is to reformat text which has only blanks for value separators. Some of the numbers are left justified and longer than the values in the next line making it impossible to do a column decode.

Thus I read with an * and then write with an A3 so the next program can read correctly.

But F95 keeps giving me error 59.

Roger

JohnCampbell · Joined: 16 Feb 2006 Posts: 2554 Location: Sydney

Try it with a text file first and see what you get.
If there are not 9 fields in a line, it will read a second line.
appending \ to a line will terminate the read(..,*)

My successful test was:

rogerh · Joined: 02 Nov 2014 Posts: 46 Location: Longmont, CO

JohnCampbell · Joined: 16 Feb 2006 Posts: 2554 Location: Sydney

check : read (13,*,err=10) lin$ ! LABEL LINE
this could cause problems as it will read 1 string up to the first blank
a blank LABEL line will take the next line.

rogerh · Joined: 02 Nov 2014 Posts: 46 Location: Longmont, CO

Nope.

Corrected that, no difference.

There are some blank lines at the beginning but F95 doesn't seem to count them.

Roger

LitusSaxonicum · Posted: Sat Jul 11, 2015 10:09 am Post subject:

Roger,

Show us a line or two of your data please. I'm having difficulty with using a blank to separate character fields. Your post suggests that the data consists of numbers, and if they were, then a different approach would be better.

JohnCampbell · Joined: 16 Feb 2006 Posts: 2554 Location: Sydney

Eddie,

I chose a random text file I had in the directory I was using for the test.
I am surprised by what I found and how easy it is to read text with read(13,*) text_array, as it separates each word as required.
It places each text, separated by a space in a separate variable.
One thing I didn't know is that you can terminate the reading the array of text with a \; the remaining variables are not read.
If you don't, it will read multiple lines until it has all 9 (in the case above)
I have forgotten if comma "," is also a separator.

The easiest way is to echo what is read.

I used a normal text file and did not get any error 59, so not sure of that is from.
My test looked to be working ok; just needs a bit of a clean up

John

rogerh · Joined: 02 Nov 2014 Posts: 46 Location: Longmont, CO

Litus, John;

Here's the first few lines of the input file. It's a series of these groups
The first two lines are blank as is the 4th line. The 5th line is the column header. There are 20 data lines and then it starts over.

Roger

Signal Strength and Detection Date (UTC) 7 2015/06/04

Pa Pd D# Earthquake UTC Date Lat Lon Depth Mag
93 100 3 1983/12/22 04:11:30 12N 14W 8 6.3
82 88 1 1992/06/28 11:57:38 34N 117W 11 7.3
81 87 1 2007/06/02 21:34:58 23N 101E 10 6.1
81 87 3 2002/03/03 12:08:06 36N 70E 194 7.2