[Fortran 77] Lecture d'une matrice dans un fichier texte
Salut:)
J'ai encore un petit souci... j'apprend comment fonctionne les fichiers. Donc, j'essaye de lire une matirce qui existe au préalable dans un fichier .txt. Pour faire simple, je me suis mis une matrice 2*2.
Je me retrouve avec le message d'erreur suivant lors de la compilation:
fmt: end of file
apparent state: unit 24 named systeme.txt
last format: <F3.1,1X,F3.1>
lately reading sequential formatted external IO
a mon avis il y a un problème avec mon fichier texte concernant le caractère fin de fichier. mais je ne sais pas qoui. :?Mon FORMAT a l'air de bien marcher.
Si c'est un truc tout bête ne me dites pas la réponse tout de suite, juste un indice peut être?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
PROGRAM LECTUREMAT
IMPLICIT NONE
INTEGER n
PARAMETER(n=2)
INTEGER i,j
REAL*8 T(n,n)
OPEN( 24, FILE='systeme.txt', FORM='FORMATTED', STATUS='UNKNOWN')
Do i=1,n
Read(24,45)( T(i,j) , j=1,n,1 )
End Do
45 FORMAT(F3.1,1X,F3.1)
CALL afimat(T,n)
CLOSE(24)
STOP
END |
une subroutine pour afficher la matrice dans le console
Code:
1
2
3
4
5
6
7
8
9
|
SUBROUTINE afimat(M, dim)
INTEGER dim
REAl*8 M(dim,dim)
DO i=1,dim
write(*,*) (M(i,j), j=1, dim)
ENDDO
RETURN
END |
Ce qu'il y a dans mon fichier "systeme.txt" (j'ai inclus un saut de ligne à la fin après le dernier élément, 5.5):
Merci d'avance! (C'est fortran 77 que j'utilise)
