[Fortran 77] Erreur inconnue
Bonjour
Je début en Fortran et j'ai du mal à m'en sortir avec ce langage.
En compilant mon programme, j'ai cette erreur :
Code:
1
2
3
4
5
| prog1.f: Dans le programme `prog1':
prog1.f:7:
count = 0
^
Fin du fichier source avant la fin du bloc débutant à (^) |
Et voici le programme :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
| PROGRAM prog1
implicit none
real*8 A(5,5),B(5),X(5),X0(5),eps,tmp,err
integer i,j,count
count = 0
DO WHILE(err.GT.eps .AND. count.LT.100)
DO i=0,5
tmp = B(i)
DO j=0,i
tmp = tmp - A(i,j)*X(j)
ENDDO
DO j=0,i
tmp = tmp - A(i,j)*X0(j)
ENDDO
X(i) = tmp / A(i,j)
ENDDO
count = count + 1
err = 0
DO i=0,5
tmp = X(i) - X0(i)
if(tmp.GT.err) then
err = tmp
ENDIF
X0(i) = X(i)
ENDDO
ENDDO
PRINT *,"fin" |
Qui peut m'aider à trouver le problème ?
Merci.
