Discussion :

[Lucio57000]

Bonjour,

je suis débutant en fortran et j'essaie de realiser un programme capable de lire un fichier .dat et d'extraire les valeurs pour les stocker dans les variables xpro, ypro.

Voici mon code

implicit none

real xpro (5600),ypro (5600)
real i1low, i2low, i1up, i2up, imax, i


OPEN(UNIT=1,file='DonnéesInjecteur.dat')

imax = 44
i1low = 1
i2low = imax+1
i1up = imax
i2up = 2*imax-3

do i=i2low,i2up
read(18) xpro(i), ypro(i)
end do


do i=i1low,i1up
read(18) xpro(i), ypro(i)
end do

close(unit=1)

OPEN(UNIT=1,file='valeur.dat')

do i=1,i2up

write(1,*) xpro(i)
write(1,*) ypro(i)

end do

close(unit=1)

stop
end

Je compile en utilisant gfortran -ffree-form -o test.exe test.f

Je recois le message d'erreur suivant

test.f:28.7:

do i=1,i2up
1
Warning: Deleted feature: End expression in DO loop at (1) must be integer


Merci pour votre aide!!

[Lucio57000]

Pardon le message d'erreur est celui la en fait

test.f:15.4:

do i=i2low,i2up
1
Error: Symbol 'i' at (1) has no IMPLICIT type

[bobbyboy]

Bonjour,

Je n'ai pas regardé en détail mais il me semble que tes indices i1low, i2low, i1up, i2up, imax, i doivent être déclarés en tant qu'entiers (integer) et non real

[Grame]

Bonjour,

Je n'ai pas regardé en détail mais il me semble que tes indices i1low, i2low, i1up, i2up, imax, i doivent être déclarés en tant qu'entiers (integer) et non real

Effectivement. Depuis Fortran90, les indices de boucle doivent être des entiers.
C'est d'ailleurs ce qu'indique le message d'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
do i=1,i2up
1
Warning: Deleted feature: End expression in DO loop at (1) must be integer