Discussion :

[sransac]

bonjour,

en fortran, j'ai compteur qui s'affiche à l'écran.
J'aimerai que ce compteur soit reécrit à la même place sur l'écran afin d'éviter le défilement et garder ainsi les informations écrites précédemment.

Comment faire ?

actuellement j'ai seulement la commande :

Code :

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

write(6,*) step

merci

[Leflix]

A mon avis ce que tu veux faire n'est pas possible...
La seule facon de contourner cela, est de re-ecrire a chaque fois tt ce que tu veux voir afficher + ton compteur qui s'incremente, et faire un 'clear' de l'ecran entre chaque affichage.
Tu auras ainsi l'impression de voir quelque chose de statique, avec seulement ton compteur qui s'incremente.

[yogitetradim]

Bonjour,

l'idée est de savoir où en est l'avancement du programme mais de ne pas remplir ton écran de lignes inutiles, c'est bien ça ?
1) Si entre deux appel à ta commande write(*,*)step, tu n'affiches rien de nouveau à l'écran, pour ne pas sauter de ligne, il te faut utiliser par exemple l'instruction advance dans ton write(*,*)

Code :

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

1
2
 
write(6,'(i0)',advance="NO") step

une version plus pratique serait de n'écrire step qu'une fois sur 10 par exemple (avec un modulo)
Encore plus classe, faire une barre de progression ! Tu n'écris plus step mais "-", tous les modulo 100 ou modulo stepmaximum/100 !

2) Si par contre, entre chaque écriture de step tu as des sorties sur ton écran...il ne vaut mieux pas faire d'écriture de step !

en espérant que ceci répond à ta question

[Ladgalen]

Une petite indication en ce qui concerne advance="no" !

Sur mon système ça ne marche pas quand je compile avec ifort. Ce n'est pas un problème car je trouve que c'est un peu de l'estétique et fortran n'est pas fait pour ça.

La solution la plus efficace est d'utiliser un modulo et de n'écrire step que de temps en temps. Tu peux aussi créer un fichier de sortie pour enregistrer les données de sortie dans un fichier ce qui te permet de pas les perdre à l'écran.

[genteur slayer]

en gros la méthode: tu écris avec l'option advance='no' puis tu éfface la ligne et tu réécris:

Code :

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

1
2
3
4
do i=1,80  !effacement de la ligne
          write( *,'(a1)',advance='no')char(8)
        enddo
        write( *,'(a,i7)',advance='no')"N° pas :",nt_i

char(8) est le caractère d'éffacement

bon ce truc ne marche pas avec ifort car la vitesse d'éxécution fait que l'éffacement intervien de suite... du coup rien ne s'affiche... mais bon...

[sransac]

bonjour et merci à tous d'avoir essayer de répondre à cette question.

à partir de vos différentes réponses, j'ai remplacé ma ligne par la suivante :

Code :

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

write(6,'(a1,i0)',advance="NO") char(13),step

et ça marche impeccable avec le compilateur g95

encore merci pour votre aide