Discussion :

[milcos]

Bonjour tout le monde

J'ai un fichier de données numériques qui comporte trois colonnes et 5400 lignes. Je voudrais juste lire les lignes impaires (lignes 1,3,5,7... etc). Comment faut-il faire en fortran pour cela ?
Je pose cette question banale car j suis nouveau sur fortran

La structure du fichier est comme suit:

153 -0.3 -5
154 -0.1 -3
160 -0.2 -2
189 -0.1 -2
. . .
. . .
. . .
Merci de me répondre

[Sylvain Bergeron]

Si tu fais :

Code :

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

1
2
3
4
5
6
 
do k = 1, 5400 / 2
   read(unit,*)a,b,c !ligne impaire
   read(unit,*) ! sans variable, devrait avancer le pointeur d'une ligne
   ... ! traitement de a, b et c
enddo

Ça devrait fonctionner. Pour un meilleur contrôle, tu peux utiliser un format explicite :

Code :

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

1
2
3
4
5
 
do k = 1, 5400 / 2
   read(unit,'(i3,f5.2,i3,/)')a,b,c
   ... ! traitement de a, b et c
enddo

La barre / permet de passer à la ligne 2 et la fin de la lecture avance une autre fois le pointeur (à la ligne 3) pour la lecture suivante.

Ma préférée :

Code :

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

1
2
3
4
5
6
7
 
character (100) Ligne
do k = 1, 5400 / 2
   read(unit,'(a,/)')Ligne
   read(Ligne,*) a,b,c
   ... ! traitement de a, b et c
enddo