Discussion :

[Le_Boucher]

Bonjour à tous,

J'avoue être tomber sur une erreur qui me déroute pas mal... Lors de la lecture d'un fichier pour récupérer des coefficients, j'ai le droit à cette erreur sur la console :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
At line 56 of file MAIN.f90 (unit = 20, file = 'COR11.dat')
Fortran runtime error: Bad real number in item 1 of list input
 
Error termination. Backtrace:
#0  0x105ab79ac
#1  0x105ab8645
#2  0x105ab8dd9
#3  0x105c7834a
#4  0x105c7ac5d
#5  0x105c7c509
#6  0x105aaf7e7
#7  0x105aadda6
#8  0x105ab022e

Et voici ce qu'il se passe autour de cette fameuse ligne 56 :

Code :

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

1
2
3
4
5
6
7
    OPEN(UNIT=20,FILE="COR11.dat");
l54    DO I=1,15
l55      DO J=1,6
l56        READ(20,*) COEF_FUGA(I,J)
l57      ENDDO
l58    ENDDO
l59    CLOSE(20)

Et voici une partie du contenu du fichier .dat :

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
1.D0
7.1734882D-1
-6.5129019D-2
5.0383896
-16.063152
-1.5693490D-1
4.7586835D-3
1.5985379D-4
-2.1429977D-4
-4.4257744D-3
-2.7057990D-3
4.4621407D-4
-3.3569963D-6
-4.9286471D-7
...

Quelqu'un saurais quel est l'origine de ce problème?

[Le_Boucher]

J'ai trouvé et c'était très vicieux : Des erreurs dans le fichier de donnée que je lis tel que un D_4 au lieu de D-4, puis un — au lieu d'un - que je n'avais pas vu.

Sujet résolu et clos.

[Ehouarn]

Bonjour,

D'où l'intérêt de l'argument optionnel "iostat" des fonctions write, read,open,close qui permet de savoir si l'opération s'est bien passée (renvoie alors l'entier 0)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
INTEGER :: OK
 
...
 
DO I=1,15
  DO J=1,6
    READ(20,*,IOSTAT=OK) COEF_FUGA(I,J)
    IF (OK.NE.0) THEN
      WRITE(*,*) "ERREUR DE LECTURE POUR I=",I," J=",J
    ENDIF
  ENDDO
ENDDO

Bonne continuation.