Discussion :

[daka86]

Bonjour, je débute en fortran ,lors de l’exécution de mon code l'erreur suivante est affichée :fortt1: severe(24):end of file during read , unit 21
Etant donné que le code est long , je poste la partie qui concerne le fichier qui me pose le problème.
Code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
mjh(t)=t*100+m*1000000+j*10000
open(21, file='input1.txt',form='formatted',status='unknown',action='read')
do k=1,16831
read (21,*) (Mat(k,1),p=1,3)
v= Mat(k,1)
if (v/=mjh(t))then 
read (21,*) (Mat(k+1,1),p=1,3)
v=Mat(k+1,1)
else  
Tamb(t)=(Mat (k,2)-32)
Tt(0,hl)=Tamb(hl)
Tf(0,hl)=Tamb(hl)
Vvent(t)=(Mat(k,3)*0.44704)
end if
end do
close(21)

Tout suggestion est la bienvenue.

[Sylvain Bergeron]

C'est un end of file (fin de fichier) : Le programme a lu tout le fichier, a atteint la fin, et tu lui demande de lire encore.

La cause ? Plusieurs possibilités :

• Il y a effectivement trop peu de lignes dans le fichier.
• Tu fais des lectures additionnelles via le if (v/=mjh(t)). Dans ce cas, tu avance d'une ligne dans le fichier. Le programme va donc lire [16831 + nombre de fois que v /= mjh(t) est vrai] lignes dans le fichier. C'est ce que tu veux ?

Dernier point : Tu lis (Mat(k,1),p=1,3), ce qui donne (Mat(k,1),Mat(k,1),Mat(k,1)). serait-il possible que tu veuilles (Mat(k,p),p=1,3), soit (Mat(k,1),Mat(k,2),Mat(k,3)) ?