Bonjour,
je souhaite écrire un format de lecture dans mon programme : basiquement je fait une écriture du genre :
Dans la pupart des cas, une lecture libre (du type) :
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
serait plus appropriée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 read(*,*)QQchose
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
Partager