Fonction Read avec un nombre de variables variables

Bonjour a tous!
Je suis actuellement sur un projet en Fortran et je rencontre un petit soucis dans mon code.

J'essaie de lire un fichier de la forme:

VANNE 8.3
RIEN
2
3

Donc j'utilise
Read(11,*) poubelle, sing
11 étant mon fichier

Pour la 1eère ligne, tout va bien, mais quand j'attaque le
RIEN
Il ne voit que le rien, mais je lui demande deux variables dans le read. Donc il saute a la ligne d'en dessous, lire le deux. Pour être clair, j'ai ça:

VANNE 8.3
-> poubelle="VANNE" sing=8.3
RIEN
->poubelle="RIEN" sing =2

Ça me pose un gros soucis, puisque lorsque je veux lire ce qui est censé être un 2, j'ai un 3. Et tous mes READ sont ensuite décalés...

Existe-t-il une option du Read qui le force a rester sur la ligne, ou bien suis-je obligé de faire quelquechose de plus lourd?

Merci d'avance pour votre temps!

Tu es obligé de faire quelque chose de plus lourd.

Le comportement de ton programme correspond à la fonctionnalité de la lecture libre, et il n'y a pas d'option.

La stratégie de base assez simple consiste à lire la ligne dans une variable caractère en utilisant le format (a) pour éviter les sauts de ligne imprévu que tu décris. Ensuite, il y a plusieurs solutions et elles dépendent du besoin. Elle vont du très simple « je fourni des données bidons pour satisfaire une lecture libre en raboutant " 0 0 0 0" au contenu de la ligne » au très compliqué « je programme un décodeur syntaxique ». Pour le premier cas, tu fais :

Code:

---

1 2 3 4 5 6 7

character (100) Ligne ... read(11,'(a)') Ligne Ligne = trim(Ligne) // " 0 0 0 0 0" read(Ligne,*) Poubelle, Sing ...

---

Et bien il ne me reste plus qu'a vous remercier, ça marche parfaitement!

On peut aussi jouer avec le ADVANCE='no' comme clause complémentaire du READ; il suffit de relire la ligne avec les 2 arguments uniquement dans le cas où elle ne contient pas "RIEN".

Etant l'enseignant qui a filé le projet en question, j'insiste pour que l'aide obtenue ici soit mentionnée dans le rapport final (notons que je n'ai rien contre l'usage du forum, quand la question est bien argumentée comme dans ce cas :) )