Discussion :

[phy4me]

bonjour
SVP j'ai un probleme lors de la lecture dans un fichier, en fait j'essaie de lire un entier suivi d'un tableau de trois colonnes (dans un seule fichier)

10
1 2097.00 2107.00 2096.00
2 2105.00 2106.00 2091.00
3 2106.00 2095.00 2092.00
4 2088.00 2089.00 2055.00
5 2089.00 2105.00 2090.00
6 2095.00 2093.00 2062.00
7 860.00 896.00 859.00
8 859.00 896.00 895.00
9 2085.00 2086.00 2052.00
10 2086.00 2087.00 2053.00

Le programme arrete le calcul , il m'affiche cet erreur :

Nom du fichier des coordonnees :
Nom du fichier des connexions:invalid integer: read unexpected character
apparent state: unit 21 named concar
last format: list io
lately reading sequential formatted external IO

This application has requested the Runtime to terminate it in an unusual way.
Please contact the application's support team for more information.

Merci pour vos aides
phy4me

[afrancisco]

salut,

Code :

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

1
2
3
4
5
6
7
8
9
integer :: i, j, fin
real, allocatable :: tab(:)
open(10, FILE='toto.txt', STATUS='old')
   read(10,*) fin
   allocate( tab(fin,3) )
   do i = 1, fin
      read(10,*) j, (tab(i,j), j=1,3)
   enddo
close(10)

... enfin, grosso modo