Discussion :

[genteur slayer]

bon voilà, j'ai une boucle de calcul du genre

Code :

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

1
2
3
do i=1,N
...
enddo

cependant ce qui s'y passe est assez long, donc j'aimerais avoir un retour sur la console avec une barre de défilement horizontale (y a beaucoup trop de valeurs pour le faire en vertical. (en fin d'exécution, on ne peut plus remonter la console suffisamment pour voir ce qui se passe au début)

En fait j'aimerai faire une sortie du style:

Code :

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

[.....          ]

(peut-être sans les crochets ou les points "avancerait", je pense qu'il faut utiliser un FORMAT et un write mais je ne connais pas le type de format...

si quelqu'un a un tuto ou la solution... merci d'avance

[DaZumba]

Le principe est de demander qu'il n'y ait pas de retour a la ligne lors de l'affichage. Malheureusement, ce n'est pas possible en standard. Certains compilateurs acceptent le formateur $ pour indiquer l'absence de retour a la ligne (en Fortran 77 du moins).
Cela donnerait:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  print '(a1,$)', '['
 
  do i = 1, N
     ! do something
 
     print '(a1, $)', '.'
  enddo
 
  print '(a1)', ']'

Comme d'habitude, les print peuvent etre remplaces par des write(6, ...) ou ... est le format donne a print.
Si N est grand et afin de ne pas afficher trop de points, on peut n'afficher qu'un point sur 10, ou sur 100, ou tous les 10%...

[genteur slayer]

merci beaucoup, ça marche parfaitement avec print, cependant pas avec write...

ce n'est pas très grave mais pour info, quelle serait la syntaxe avec write?

[DaZumba]

En Fortran, la sortie standard est numerotee 6 (il est fortement conseille de ne pas ouvrir de fichier a cette unite). Donc l'equivalent du code ci-dessus, mais avec write est:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  write(6, '(a1,$)') '['
 
  do i = 1, N
     ! do something
 
     write(6, '(a1, $)') '.'
  enddo
 
  write(6,'(a1)') ']'

[genteur slayer]

merci beaucoup je suis débloqué maintenant