Bonjour

Ask help please, la lecture des paramètre du fichier est impossible, quelqu'un qui peut m'aider SVP (je cherche à lire aux,pcr,tcr,vcr,(par(i),i=1,4 de chaque ligne ''chaque substance''):


Programme Fortran:

implicit double precision (a-h,o-z)
character*80 nrec

open(7,file='data.txt',status='old',access='direct',
&form='formatted',recl=20+8*(10+3),iostat=ierr)


read(7,FMT=*) nrec
write(*,*) nrec

do 100 irec=1,nrec
read(7,rec=irec+1) aux,pcr,tcr,vcr,(par(i),i=1,10)

100 continue

Fichier text ''data.txt'':

5 1
CO2
.73825000E+02 .30421000E+03 .94440000E-01
-.15073854E+00 .33064769E+03 .20411093E-01 .12017760E+01
H2
.12980000E+02 .33240000E+02 .67498885E-01
.70430569E+00 .27063874E+02 .11786404E-01 .10000000E+01
O2
.27406883E+02 .54042767E+03 .43139122E+00
-.99900150E-01 .69324730E+03 .94018278E-01 .12688725E+01
Ar
.48979000E+02 .15086000E+03 .74559704E-01
-.15821676E+00 .10363524E+03 .16644547E-01 .10000000E+01
Mg
.45950000E+02 .19055500E+03 .10059809E+00
.24966474E+00 .13188658E+03 .22259735E-01 .10000000E+01