Read text without spaces

[f90user1]

Hi programmers,

I need to read from a text file like:

60.35171 70.94328 81.36008 89.12619
-64.83599-109.01840-139.22970-157.61670
-200.86020-217.46710-230.26000-242.12800
10.05124 61.83500 108.95660 151.30990
113.88240 86.09840 60.00135 43.50320

All floats should go in an array A(i,j).
when there are spaces between each float np, but how does it work without spaces? Any ideas?

 

[xwb]

1) Read the whole line into a char array
2) Find the beginning of a number in the array - not a space
3) Look for the end: either a space or a -
4) Read the number using read(line(numbeg:numend -1), *) A(i,j)
5) Repeat from step 2 until end of line
6) Repeat from step 1 until end of file

 

[mikrom]

Or you can first preprocess your input file replacing all '-' with ' -', so you will get from the original file

 60.35171  70.94328  81.36008  89.12619    
-64.83599-109.01840-139.22970-157.61670
-200.86020-217.46710-230.26000-242.12800
  10.05124  61.83500 108.95660 151.30990 
 113.88240  86.09840  60.00135  43.50320

this file

60.35171  70.94328  81.36008  89.12619    
 -64.83599 -109.01840 -139.22970 -157.61670
 -200.86020 -217.46710 -230.26000 -242.12800
  10.05124  61.83500 108.95660 151.30990 
 113.88240  86.09840  60.00135  43.50320

and now you can read it from your fortran program

 

[xwb]

Nice one mikrom - good bit of lateral thinking.

 

[f90user1]

Thanks for your help guys,
I like the preprocessing idea, very nice!