Discussion :

[salloum]

Bonjour tout le monde,

Je voudrais savoir comment fait Fortran pour savoir quelles valeurs affecter aux arguments d'une fonction déclarée en external, et appelée sans paramètres....
Je m'explique : j'ai un programme qui marche nickel, et qui contient un main, une fonction f1(x,y) et f2(z,f1); f1 étant déclarée en tant que external.
Dans le main, on appelle f2 directement comme ça

Code :

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

toto=f2(z,f1)

Ce que je ne comprends pas c'est comment fait le programme pour connaître les valeurs de x et y (les paramètres de f1)?? sachant qu'il n'y a absolument rien dans le main sur f1 ni ses arguments x et y...
(pour z, il n'y a pas de problème, je veux juste savoir comment fortran sait quels x et y entrer pour calculer f1(x,y)).

Je ne sais pas si ce que j'ai écrit est clair..
Merci de votre aide ^^

[xflr6]

Bonjour,

Dans ce contexte, c'est la procédure f1 qui est passée en argument, et non une valeur particulière de la fonction f1.
Ainsi, c'est dans f2 que seront spécifiés les arguments de f1, un truc du genre

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 main
  [...]
  f2(xxx,f1)
  [...]
end program main
 
function f1(a1,a2)
  [...]
end function f1
 
function f2(zdummy,fdummy)
  [...]
  external fdummy
  [...]
  val=fdummy(arg1,arg2)
  [...]
end function f2

dans cet exemple, c'est uniquement à la ligne val=fdummy(arg1,arg2) que seront spécifiés les arguments de f1.

Mettre une procédure en argument, c'est se permettre de pouvoir interchanger cette procédure.
Par exemple, une fonction (au sens routine informatique) de recherche de racine ou de minimum de fonctions (au sens mathématiques) permet d'avoir une routine générique applicable à plusieurs problèmes.

Cordialement,
xflr6

[salloum]

Bonjour,

Dans ce contexte, c'est la procédure f1 qui est passée en argument, et non une valeur particulière de la fonction f1.
Ainsi, c'est dans f2 que seront spécifiés les arguments de f1, un truc du genre

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 main
  [...]
  f2(xxx,f1)
  [...]
end program main
 
function f1(a1,a2)
  [...]
end function f1
 
function f2(zdummy,fdummy)
  [...]
  external fdummy
  [...]
  val=fdummy(arg1,arg2)
  [...]
end function f2

dans cet exemple, c'est uniquement à la ligne val=fdummy(arg1,arg2) que seront spécifiés les arguments de f1.

Mettre une procédure en argument, c'est se permettre de pouvoir interchanger cette procédure.
Par exemple, une fonction (au sens routine informatique) de recherche de racine ou de minimum de fonctions (au sens mathématiques) permet d'avoir une routine générique applicable à plusieurs problèmes.

Cordialement,
xflr6

Bonjour xflr6 et merci beaucoup de votre réponse. Je comprends mieux !

Cordialement,
S.B.