Discussion :

[manaliac]

Bonjour (encore )

Je suis entrain de lire un fichier texte , ce fichier possède des données par colonnes disposées ainsi sur n lignes:

Code :

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

X1                  X2               X3             X4           X4

le problème c'est que je souhaite avoir une seule variable du genre X(5,n) ou stocker le tout et me débarasser des Xi.

Malheureusement mon code ne marche pas!

Code :

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

1
2
3
4
5
6
 
		do i = 1, n  ! nombre de ligne du fichier
		do j = 1, n_Xi  ! nombre de colonnes
		read(7,*) X(j,i)
		enddo
                enddo

est ce que vous auriez une idée de comment procéder à la lecture de ce tableau?

Merci

[Marlan]

Salut,

Alors, pour pouvoir lire ce fichier, s'il ne contient que des valeurs numériques essayes en mettant le tableau X sous la forme d'un tableau dynamique lors de la déclaration des variables puis:

!Declaration des variables
Allocatable, dimension (:,: ) :: X
...
Allocate(X(n_Xi,n))

read(7,*) X
...

Deallocate (X)

Si je ne me trompes pas, ça devrait marcher.

[Sylvain Bergeron]

...
Je suis entrain de lire un fichier texte , ce fichier possède des données par colonnes disposées ainsi sur n lignes:

Code :

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

X1                  X2               X3             X4           X4

le problème c'est que je souhaite avoir une seule variable du genre X(5,n) ou stocker le tout et me débarasser des Xi.

Malheureusement mon code ne marche pas!

Code :

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

1
2
3
4
5
6
 
		do i = 1, n  ! nombre de ligne du fichier
		do j = 1, n_Xi  ! nombre de colonnes
		read(7,*) X(j,i)
		enddo
                enddo

...

Le problème est qu'à chaque read, il y a saut de ligne. Ton programme ne lit donc que le X1 de chaque ligne. Tu dois faire :

Code :

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

1
2
3
4
 
		do i = 1, n  ! nombre de ligne du fichier
		   read(7,*) X(:,i)
                enddo

ou :

Code :

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

1
2
3
4
 
		do i = 1, n  ! nombre de ligne du fichier
		   read(7,*) (X(j,i),j=1,n_Xi)
                enddo

ou encore :

Code :

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

1
2
3
4
 
		do i = 1, n  ! nombre de ligne du fichier
		   read(7,*) X(1:n_Xi,i)
                enddo

Il serait également possible de combiner ta stratégie (2 boucles) avec la clause advance='no', mais c'est beaucoup trop compliqué pour ton problème...

[manaliac]

Bonjour,
tu veux dire qu'il suffit que j'ecrive juste

read(7,*) X

sans préciser les indices i,j pour que ça marche? pas de boucle do?

(j'ai déjà alloué la taille du tableau par un allocate )

[Sylvain Bergeron]

Oui ça va fonctionner, MAIS :

La lecture d'un tableau entier par un format libre (*) offre très peu de contrôle. Je te suggère donc, suite à la lecture, de valider si possible le contenu du tableau.

C'est ce problème de contrôle qui oblige souvent à découper la lecture en ligne et à utiliser une variable caractère intermédiaire. Tu trouveras plusieurs problèmes résolus par cette stratégie dans le forum.