Discussion :

[optalix]

J'ai besoin de passer une fonction en paramètre pour du Fortran 90, compilé avec xlf90.

En gros j'ai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function grad(x)
!calcul d'un gradient en fonction de x
end function grad
 
program mpg(x,grad)
!ma fonction de calcul de minimisation dans laquel je voudrais utiliser grad
!je fais donc:
external grad
real(kind=8) :: grad
 
!mais il veut pas
G = grad(x)

Par contre, j'ai essayé de passer une subroutine en paramètre (external masubroutine puis call subroutine) et ça marche.

[DaZumba]

Ton exemple n'a bien sur aucune chance de compiler.

Code :

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

1
2
 
program mpg(x,grad)

program est le point d'entree du programme. En Fortran, il ne peut pas prendre d'arguments (contrairement au C). De plus, on ne peut pas passer le nom d'une fonction ou sous-routine comme argument.
Typiquement, si tu as une sous-routine (appellee par un CALL), il faut la lister dans les EXTERNAL. En Fortran90, il est egalement conseille (parfois obligatoire) de fournir son interface (l'equivalent du prototype du C).
Si tu as une fonction (renvoit une valeur), il suffit de declarer son type de retour - sans la lister dans les external.

[Sylvain Bergeron]

program est le point d'entree du programme. En Fortran, il ne peut pas prendre d'arguments (contrairement au C).

Angle intéressant. Je croyais plutôt que c'était une coquille, que Optalix voulait dire subroutine...

De plus, on ne peut pas passer le nom d'une fonction ou sous-routine comme argument.

Si "mpg" était une subroutine ou une function, ce qu'a fait Optalix deviendrait cependant valide.

Par contre, j'ai essayé de passer une subroutine en paramètre (external masubroutine puis call subroutine) et ça marche.

Comme l'a soulevé DaZumba, ton code n'est pas compilable, et tu n'indique pas le message d'erreur, sauf pour dire "mais il ne veut pas". Si tu veux qu'on t'aide, tu devrais soumettre le code exacte (exemple simplifié si possible) et/ou le message d'erreur exacte.

[DaZumba]

Angle intéressant.

Interessant? Non! Ceci dit tu as raison, ce que j'ecris est imprecis. Evidemment, un programme ecrit en Fortran peut prendre des arguments, mais leur acces ne se fait pas comme cela.

Je croyais plutôt que c'était une coquille, que Optalix voulait dire subroutine...

Peut-etre, le message original n'est pas clair.