Discussion :

[al85]

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.

[YOY205]

Salut al85,

je pense qu'il manque une directive de fin de programme à ton code.

Essaie d'ajouter "END" à la fin de ton programme pour signifier la fin de "PROGRAM prog1". Ceci devrait suffire en Fortran 77.

En Fortran 90 il faudrait ajouter "END PROGRAM" ou "END PROGRAM prog1" je crois (mais je n'ai pas de code ni de compilateur sous la main pour vérifier...).

Encore une chose, certains compilateurs ne prennent en compte que les lignes terminées par un retour chariot. Donc assure toi d'ajouter un retour à la ligne après ta commande "END" pour être sûr qu'elle est bien prise en compte. Pour régler ce problème, je pense qu'il est bien de prendre l'habitude de toujours terminer son code par une ligne de commentaire. Comme ça la dernière ligne de code est toujours suivie d'un retour chariot...

[al85]

C'etait bien le END qui manquait.
Merci