forums.silverfrost.com

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

Bill,

wahorger · Joined: 13 Oct 2014 Posts: 1217 Location: Morrison, CO, USA

Thanks for the explanation, John. A lot of good code, and thanks for sharing it.

aebolzan · Posted: Thu Oct 20, 2016 2:54 pm Post subject:

Dear Bill,

the "problem" with your code was that I forgot to mention that after reading de file, I had to re-open it to read once again the real data, so your code worked fine only for reading the file in a first instance, but as the file wasn't modified (as John did), I couldn't used it in the second stage where, once the size of the array was known, data was read for the subsequent calculations.

Agustin

wahorger · Joined: 13 Oct 2014 Posts: 1217 Location: Morrison, CO, USA

OK.

It wasn't clear that you were looking for an end-to-end solution. I'm sure the one given to you will satisfy your needs.

aebolzan · Posted: Fri Oct 21, 2016 7:29 pm Post subject:

I found that if the file contains data separated by tabs or spaces, instead of commas, the subroutine get_ xy fails. Is there any way to overcome this issue?.....in general I export data separeated with commas, but sometimes, my data goes through other stages that eventually translate commas into tabs or spaces.

Agustin

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

Agustin,

The solution to this is to change the read statement in subroutine get_xy :
read (line,fmt='(2f30.0)',iostat=iostat) x1,y1
and replace this by a routine to finds each text string that is defined by a separator character ( comma, space, tab or other ) then read each text string to get each number. (Note: to read tab characters, see OPEN help)
The coding for this is straight forward, although the code gets a bit longer as more special characteristics of the data file are included.

John

aebolzan · Posted: Sat Oct 22, 2016 1:25 pm Post subject:

thanks for the tip John!

Agustin