read a value from a file

[TheKKK]

Hello,
I have a file that goes like this:


*** MODEL RUN ***
*** VERSION DATED 96043 ***
.
.
.
.
STACK HT (M) = 100.0000
STACK DIAMETER (M) = 2.6950
STACK VELOCITY (M/S) = 99.9020

How can I use the READ command to read the values 100.0000, 2.6950, 99.9020 and in general anything that is on the right of the = sign?

 

[johnhors]

1). Read the entire line as a character string.
2). Use INDEX to find the position of = in the string
3). Do an internal free format read on the substring after the =



CHARACTER*50 STRING

READ(5,'(A)')STRING
L=LENG(STRING)
K=INDEX(STRING,'=')
READ(STRING(K+1:L),*)VALUE

 

[xwb]

Lookup namelist in your compiler documentation. It may do something similar.

 

[TheKKK]

Thanx