Bonjour tout le monde,
Je suis entrain de faire un petit programme fortran, et j'obtient une erreur, (Bad integer for item 1 in list input) au niveau du premier "read", que je n'arrive à résoudre. Pensez vous que ce soit un problème de déclaration de variable, ou bien un problème de lecture ?

Merci beaucoup


Voici le programme :

PROGRAM point2151

double precision n,XH,XH2,XHe3,XHe4,XLi6,XLi7
double precision L,Reff,R,rhoeff,geff,mlos,mass
double precision dt,t
double precision tm,massm,L_dep
double precision t13
double precision L11,L13,L12
real Teff,Teff_11,Teff_12,Teff_13,Teffm
real Teff14,Teff15,Teff16,Teff17,Teff18,Teff19,dist
double precision model,phase,iter,crash,nshell
double precision Teff_evol,t_evol,L_evol,mass_evol

open(unit=10,file = 'modeles_1.0point2151', status = 'new')
100 format(i5,1x,f14.6,1x,0pf7.0,1x,0pf12.8,1x,1pe16.10)

open(unit = 30,file ='m1.0z014_thermoh_3.1a.hr')
open(unit = 31,file ='m1.0z014_thermoh_3.1a.c1')

nbl = 62785
L_dep = 2.222515
deltaL = 1.2
tm = 1.2585712855E+10
Teffm= 5033

do j=1,nbl

read(30,*) i,phase,L,Reff,R,Teff,rhoeff,geff,
& mlos,mass,dt,t
read(31,*) i,n,XH,XH2,XHe3,XHe4,XLi6,XLi7

if (L.GE.(L_dep+deltaL).and.t.GT.tm.and.Teff.LT.Teffm) then
L_evol=L
Teff_evol=Teff
mass_evol=mass
t_evol=t
write(10,100) i,L_evol,Teff_evol,mass_evol,t_evol
goto 1000
endif

enddo
1000 continue
close(30)
close(31)
close(10)

end