Bonjour,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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