Discussion :

[sebauvray]

Bonjour,

je travaille sur un code Fortran sous G95.

J'ai eu besoin de rediriger stdout vers un fichier. Pour ça, pas trop de soucis :

Code :

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

1
2
 
open(unit=6, file="monFichierdeSortie")

ce qui m'a permis de ne pas avoir à réécrire tous les print * en write(unitNumber).

Le souci est que je voudrais pouvoir rebasculer vers le stdout standard.
J'ai essayé les codes suivants :

Code :

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

1
2
3
 
open(unit=6, file="stdout")
open(unit=6, file="/dev/stdout")

mais aucun ne fonctionne.

Quelqu'un aurait une idée (voire même avec des appels systèmes, peu importe) ?

Merci !!

Seb.

[Grame]

Bonjour

Normalement, il n'y a rien à faire puisque sous g95 l'unité 6 correspond à la sortie standard i.e écran.

Si je fais par exemple :

Code :

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

1
2
3
 
  print *, 'Ca marche '
  end

cà écrit Ca marche à l'écran.

Si je fais

Code :

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

1
2
3
4
5
 
  open (6,file='sortie')
  print *, 'Ca marche '
  close (6)
  end

cà écrit Ca marche dans le fichier sortie.

[sebauvray]

Merci pour votre réponse, mais...

Pour envoyer l'unité 6 dans un fichier, pas de soucis.

Ce dont j'ai besoin, c'est pouvoir, après avoir fait cette redirection,"réassigner" l'unité 6 à stdout (soit la sortie écran standard).

C'est-à-dire "annuler" la redirection précédente...

[Grame]

C'est-à-dire "annuler" la redirection précédente...

Si je comprend bien, les 2 dans le même programme ?

Je ne sais pas faire.

Mais si le but est juste de récupérer les sorties écrans, le plus simple est, sans toucher au code source, une capture de la sortie en plus de l'affichage :

Code :

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

1
2
 
nom_executable  | tee  monFichierdeSortie

t'affiche les résultats à l'écran ET dans le fichier monFichierdeSortie

[Sylvain Bergeron]

Personnellement, je tenterais de fermer le unit 6 en espérant que l'accès write subséquant force la réouverture / assignation par défaut sur stdout...

[MABROUKI]

bonjour
pourquoi utilise -tu pour l'ecran alors qu'on peut simplement utiliser write qui se prete à la redirection car il dispose du parametre de redirection :
si tu remplace avec Cherche-Remplace tous tes " print *, " avec
" write(6,*) " tu seras sauve.
voici un exemple de redirection de write:
code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
       PROGRAM STDOUT
 
       INTEGER*4:: ENTIER1,ENTIER2
	 REAL*4    :: REEL1,REEL2    
       CHARACTER(40)::CHAINE  
 
       ENTIER1=100
	 ENTIER2=1500 
       REEL1=205.5
	 REEL2=23.59
 
	 CHAINE="CA MARCHE AVEC CLOSE"
 
 
!  PRINT TO THE SCREEN (PRECONNECTED UNIT 6).
      WRITE(6, '("This is unit 6 Ecran")')
 
!  USE THE OPEN STATEMENT TO CONNECT UNIT 6
!  TO AN EXTERNAL FILE NAMED 'TEST.TXT'.
      OPEN (UNIT = 6, FILE = 'TEST.TXT', STATUS = 'OLD')
 
! PRINT TO THE FILE 'TEST.TXT'.
      WRITE (6,*) ENTIER1,ENTIER2,REEL1,REEL2  
      WRITE (6,*) CHAINE
 
!  CLOSE IT.
      CLOSE (6)
!  RECONNECT UNIT 6 TO THE SCREEN, BY WRITING TO IT.
      WRITE(6,' (" REOPEN SCREEN FOR  TEST.TXT")')
 
	WRITE (6, *) ENTIER1,ENTIER2,REEL1,REEL2  ,CHAINE
 
	END PROGRAM STDOUT

ca marche avec close comme l'as si bien dit ca marche à l'ecran.
bon code....

[MABROUKI]

bonjour
pourquoi utilise -tu pour l'ecran alors qu'on peut simplement utiliser write qui se prete à la redirection car il dispose du parametre de redirection :
si tu remplace avec Cherche-Remplace tous tes " print *, " avec
" write(6,*) " tu seras sauve.
voici un exemple de redirection de write:
code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
       PROGRAM STDOUT
 
       INTEGER*4:: ENTIER1,ENTIER2
	 REAL*4    :: REEL1,REEL2    
       CHARACTER(40)::CHAINE  
 
       ENTIER1=100
	 ENTIER2=1500 
       REEL1=205.5
	 REEL2=23.59
 
	 CHAINE="CA MARCHE AVEC CLOSE"
 
 
!  PRINT TO THE SCREEN (PRECONNECTED UNIT 6).
      WRITE(6, '("This is unit 6 Ecran")')
 
!  USE THE OPEN STATEMENT TO CONNECT UNIT 6
!  TO AN EXTERNAL FILE NAMED 'TEST.TXT'.
      OPEN (UNIT = 6, FILE = 'TEST.TXT', STATUS = 'OLD')
 
! PRINT TO THE FILE 'TEST.TXT'.
      WRITE (6,*) ENTIER1,ENTIER2,REEL1,REEL2  
      WRITE (6,*) CHAINE
 
!  CLOSE IT.
      CLOSE (6)
!  RECONNECT UNIT 6 TO THE SCREEN, BY WRITING TO IT.
      WRITE(6,' (" REOPEN SCREEN FOR  TEST.TXT")')
 
	WRITE (6, *) ENTIER1,ENTIER2,REEL1,REEL2  ,CHAINE
 
	END PROGRAM STDOUT

ca marche avec close comme l'as si bien dit grame ca marche à l'ecran.
bon code....

[Grame]

Personnellement, je tenterais de fermer le unit 6 en espérant que l'accès write subséquant force la réouverture / assignation par défaut sur stdout...

C'est aussi ce que j'ai essayé, mais ca ne marche pas

[Sylvain Bergeron]

Une autre piste : http://www.developpez.net/forums/d51...rtie-standard/