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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : 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
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.