Discussion :

[nyme92]

Bonjour,
Gros trou :
comment récupérer "une_valeur" calculée dans "machin" dans le prog principal
Merci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
program truc
integer valeur
.
.
call machin(avec ou sans parametres)
valeur=une_valeur
.
.
end
 
subroutine machin(...)
une_valeur=f(variable interne ou externe)
end

[afrancisco]

Salut,

Je te propose les 2 méthodes suivantes :

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
program truc
implicit none
integer :: valeur, une_valeur
.
call machin(avec ou sans parametres)
valeur=une_valeur
.
contains
 
subroutine machin(...)
implicit none
une_valeur=f(variable interne ou externe)
end
 
end program

ou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program truc
implicit none
integer :: valeur, une_valeur
.
call machin(une_valeur)
valeur=une_valeur
.
end program
 
subroutine machin(une_valeur)
implicit none
integer, intent(out) :: une_valeur
une_valeur=f(variable interne ou externe)
end

[nyme92]

Merci.
Cependant, c'est du 77? J'utilise gfortran. DE ce que je comprends de ton code tu déclare une_valeur comme globale mais tu la passes comme parametre quant même.
Et intent(out), je ne connais pas, mais apparemment cela permet de la renvoyer ?
Merci.

[genteur slayer]

alors, les intent, c'est du F90 cela permet de déclarer une variable paramètre d'une subroutine/fonction comme entrante sortante ou les deux...

cela dit, si tu est en 77 tu peux utiliser la seconde solution de afransico sans les intent et ce devrai être bon...

sinon troisième solution, tu transforme ta subroutine en fonction:

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
program truc
implicit none
integer valeur
.
.
valeur= machin(avec ou sans parametres)
 
.
.
end
 
function machin(...)
impliciti none
integer machin
une_valeur=f(variable interne ou externe)
machin=une_valeur
return
end

il est préférable, de mettre return en fin de fonction, mais aussi de subroutine...

[nyme92]

Merci.
Le :: ce n'est pas du 77 il me semble ? Et désigne quoi? J'ai déjà vu cela en c++ mais je ne pense pas que cela fasse la même chose puisque c'est dans le contexte de la création d'objet à partir d'une classe (évidemment).
Donc, je retiens qu'en 77 ma question n'a pas de réponse, et qu'une façon est de transformer la routine en fonction.
Il est vrai que si je n'ai qu'une valeur à ressortir cela paraît le choix logique.
A confirmer, je vais essayer.
Merci.

[DaZumba]

Donc, je retiens qu'en 77 ma question n'a pas de réponse, et qu'une façon est de transformer la routine en fonction.

Tu peux passer par un COMMON BLOCK, mais c'est moche. Sinon, il semble en effet assez logique de passer la valeur que tu souhaites retourner en argument d'une subroutine ou en valeur retournee par une fonction.