Discussion :

[VITALTH]

Bonjour,

J'ai des programmes avec la trame suivante :

Code :

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

1
2
3
4
5
6
7
       PROGRAM P1
       
       <Instruction diverse>
       WRITE(13,'(''Message à affecter à la sortie standard'')')
       Instruction diverse

       END PROGRAM

Je souhaite que mon message "Message à affecter à la sortie standard" s'affiche sur mon écran. En d'autre terme, je souhaite que mon unit 13 soit redirigé vers la sortie standard. Je voudrais par exemple faire cette assignation dans un shell de lancement. Est ce que cela se fait?

Je sais que que je pourrais écrire la ligne suivante:

Code :

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

      WRITE(6,'(''Message à affecter à la sortie standard'')')

Mais ce n'est pas ce que je veux.

Je vous remercie d'avance.

[Sylvain Bergeron]

La solution peut varier d'un système à l'autre, mais en gros, tu dois ouvrir le unit 13 sur un fichier correspondant à l'écran. Le résultat n'est pas garantie d'être identique à une sortie stdout, mais c'est assez près.

Par exemple, il y a quelques années (?), nous avions un programme Fortran roulant sous DOS qui demandait à l'utilisateur le nom du fichier de sortie. En répondant CON (« fichier » console pour DOS), nous obtenions les résultats à l'écran.

[VITALTH]

Bonjour, Merci pour la réponse
En fait mon programme fortran tourne AIX et est lancé par un shell en ksh.
C'est dans ce shell que je veux affecter mon unit à la sortie standard et je n'ai pas trouvé la commande correspondante

[Ehouarn]

Bonjour,

Je n'ai pas de réponse directe sur la manière de rediriger l'unit 13 vers la sortie standard comme tu le veux; j'aurai tendance à dire que ce n'est peut-être même pas possible sous Unix & co (quoiqu'il me semble que certains compilateurs proposent des options de compilation de ce genre; penses à regarder la doc du tiens).

Par contre, puisque tu parles d'un shell de lancement, rien ne t'empêche de régler le problème à ce niveau: On peut par exemple imaginer d'utiliser la commande 'sed' pour automatiquement transformer tous les "write(13," en "write(6," du programme (sans oublier de recompiler celui-ci après).

Une autre possibilitée (plus propre) est que le numéro d'unité vers lequel se feront les sorties soit demandé à l'utilisateur au niveau du programme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
program p1
integer :: outunit
! en début de programme, on demande a ce que soit entrée la valeur de l'unité de sortie
read(5,*) outunit
 
! instruction diverses
 
! dès qu'il s'agit de faire une sortie, on utilise
write(outunit,*) "message vers la sortie"
 
! instructions diverses
end program

Dans ce cas, c'est au niveau du shell que tu fournirai la valeur de 'outunit'; dans le cas ou ce nombre serait 6, les sorties seront à l'écran. Dans le cas ou 'outunit' serait un autre nombre les sortie seront envoyées dans un fichier fort.outunit.
Mais pour le coup, attention aux cas 'pathologiques' ou 'outunit' correspondrait à 5 (entrée standard) ou 0 (parfois réglé par défaut sur l'erreur standard), ou serait un nombre négatif...; à gérer au niveau du shell ou du programme; si tu veux faire quelque chose de propre.

Bonne continuation.

Ehouarn

[VITALTH]

Je te remerci Ehouarn de ta réponse et l'affectation au unit 6 pour la sortie standard est probablement la modification que j'aurai à faire dans mes sources si je ne trouve pas d'autre solution plus satisfaisante.

Cependant ce n'est pas si simple !
En effet, j'explique la situation, j'ai, à ma disposition, 4000 sources fortran tournant sur VAX/VMS que je dois migrer sur UNIX/AIX.

Les programmes sont lancés par un script DCL (équivalent à un script SHELL sur UNIX). Pour beaucoup d'entre eux on affecte un unit à la sortie standard. (Commant ASSIGN/USER FOR013 SYS$OUTPUT).

Je pourrais effectivement changer de manière automatique tous les unit affecté à la sortie standard en un unit 6. Mais il se pose deux problèmes:

- 1) Une routine qui a l'instruction WRITE(13, '(''.... pourrait très bien appartenir à un programme P1 où le unit 13 est affecté à la sortie standard et appartenur à un autre programme P2 où le unit 13 est affecté à un fichier quelconque (instruction DCL : ASSIGN/USER FOR013 FIC.TMP)

- 2) Pour baucoup de routine, on écrit pas dans un flux directement mais dans une variable contenant le flux (comme tu as écrit précédemment : WRITE(outunit,'(''...) Seulement c'est variable contenant le flux sont passés d'une routine à l'autre par passage de paramètre CALL SubroutineA(outunit,...). Cet échange de paramètres peut remonter sur 3 ou 4 routines. Dès lors il devient très difficile de trouver une logique pour pouvoir changer automatiquement les unit affectés à la sortie standard. D'autant plus que le paramètre peut changer de nom entre la routine appelante et la routine appelée.

[Ehouarn]

Effectivement, tu risques de ne pas pouvoir t'en sortir sans faire un paquet de modifications à la main...
Sauf si ton compilateur Fortran inclue la possibilité de fixer l'unité à laquelle est rattachée la sortie standard; j'ai le vague souvenir que certains le permettent.

Bon courage.

[VITALTH]

Oui je pense que c'est une bonne idée, en effet /dev/tty traite de tous les entrée sortie avec le terminal. Je vais tester si tot que je serais sur ma machine de test.

Cependant dans mon korn shell d'appel je ne sais pas trop comment je peux déclarer les choses peut être un truc du genre

XLFUNIT_13=/dev/tty

Bref je vais essayer et je vous tiens au courant du test

[VITALTH]

Merci Sylvain
Cela fonctionne enfin :

la méthode utilisée est :
crée un script shell p1.ksh

Code :

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

1
2
3
4
5
#! /usr/bin/ksh
XLFRTEOPTS=unit_vars=yes
XLFUNIT_13=/dev/tty
export XLFRTEOPTS XLFUNIT_13
p1

et d'avoir mon programme p1.f

Code :

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

1
2
3
4
5
 
      PROGRAM P1
      WRITE(13,'(''MON MESSAGE SUR LA SORTIE STANDARD'')')
      STOP
      END

En compilant et en linkanbt avec XLF :
xlf p1.f -o p1

on obtient :
$ ./p1.ksh
MON MESSAGE SUR LA SORTIE STANDARD

Merci pour ton aider cela me sort une grosse épine du pied