Discussion :

[Loïc B.]

Bonjour,

une petite question en fortran : est-il possible de passer en argument à une fonction une autre fonction.

Exemple (débile) :

- j'aurai une fonction calcule(f,x) qui me calculerai f(x).
- ainsi je pourrai passer en argument fonction_carre, racine_carre.

(l'exemple est débile, je conçois, mais ça représente exactement ce que je veux faire)

Es ce possible ?

[FR119492]

Salut!
Va voir dans ta doc ce qu'ils disent de l'instruction External.
Jean-Marc Blanc

[Loïc B.]

Merci !

[Loïc B.]

Alors du coup j'ai programmé un petit exemple :

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
function f1(x) result (y)
  y=x
end function f1
 
function f2(x) result (y)
  y=x**2.0
end function f2
 
function evaluate(fonction) result(y)
  real y
  external fonction
  y=fonction(3.0)
end function evaluate
 
program main
  write(*,*) f1(2.0)
  write(*,*) f2(2.0)
  write(*,*) evaluate(f1)
end program main

Mais ça ne compile pas. Pourtant j'ai recopié quasiment un exemple fourni.
Le compilo me renvoie :

Code :

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

1
2
3
4
5
6
7
8
9
 
  write(*,*) evaluate(f1)
                      ^   
"essai.f90", Line = 18, Column = 23: ERROR: Procedure "F1" must be EXTERNAL, a module procedure or declared in an interface block to be an actual argument.
 
f90: COMPILE TIME 0.070000 SECONDS
f90: MAXIMUM FIELD LENGTH 5105334 DECIMAL WORDS
f90: 18 SOURCE LINES
f90: 1 ERRORS, 0 WARNINGS, 0 OTHER MESSAGES, 0 ANSI

Vous auriez une idée ?

[Sylvain Bergeron]

...ça ne compile pas... Vous auriez une idée ?

J'en ai même 2 :

• Tu n'utilises pas le keyword « external ». Retourne à la doc.
• C'est une très très mauvaise habitude de ne pas utiliser de « implicite none »

[Loïc B.]

Ah oui autant pour moi, j'ai recopié le mauvais bout de code. Cependant, le message de compilation était le bon : même avec le keyword external, ça ne marche pas.

Edit : voilà la solution :

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
function f1(x)
  implicit none
  real x,f1
  f1=x
end function f1
 
function f2(x)
  implicit none
  real x,f2
  f2=x**2
end function f2
 
function evaluate(fonction)
  implicit none
  real fonction
  external fonction
  real evaluate
  evaluate = fonction(3.0)
end function evaluate
 
program main
  implicit none
  real f1,f2,evaluate,a
  external f1
  external f2
  write(*,*) f1(2.0)  
  write(*,*) f2(2.0)
  write(*,*) evaluate(f1)
  write(*,*) evaluate(f2)
end program main

[DaZumba]

une petite question en fortran : est-il possible de passer en argument à une fonction une autre fonction.

C'est un callback, et c'est possible -- mais c'est un peu complique, notamment si tu veux passer des arguments. Voir ici pour une bonne explication.