Ecriture de formats

Bonjour,

je souhaite écrire un format de lecture dans mon programme : basiquement je fait une écriture du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

program implicit none character(len=20)::Fmt integer::Long,QQchose   Long=6   write(Fmt,'(''(1x,i'',i1,'')'')')Long !ensuite on utilise ce format read(*,Fmt)QQchose

---

Dans la pupart des cas, une lecture libre (du type) :

Code:

---

1 2	read(*,*)QQchose

---

serait plus appropriée.

Mon idée serait donc d'écrire "*" dans FMT si une lecture libre est plus appropriée et un format plus complexe dans les autres cas.

Avez-vous des idées pour réussir ceci ?

Par avance merci

Il n'est pas possible de définir une lecture list-directed (libre) à partir d'un format. Tu devras donc prévoir explicitement les 2 cas :

Code:

---

1 2 3 4 5 6 7

... if (condition) then write(Fmt,...) read(*,Fmt) .... else read(*,*) ...

---

Merci pour la réponse...bon effectivement ce n'est pas la réponse que j'aurai aimé avoir :lol: mais bon !