Bonjour,

Je développe depuis un ans en Fortran et que voudrais savoir s'il est possible d'affecter a une variable une fonction. Prenons un exemple simple :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
do i = 1, 10 000
   do j = 1, 10 000
      do k = 1, 10 000
           select case (id)
           case ( 1 )
                c = fct1(a,b,i,j,k)
           case ( 2 )
                c = fct2(a,b,i,j,k)
           case ( 3 )
           .... jusqu'à 10
           end select case
      end do
   end do
end do
Pour éviter cela je voudrais sortir le select case et créer une fonction fct qui vaudra soit fct1, fct2, ou encore fct3.
Puis, dans la boucle j'aurais juste à faire c = fct et je n'aurai plus à faire un select case
dans chacune des boucles. Est-ce possible ?

Il me semble qu'on m'a dit de faire un truc du genre par exemple :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
integer :: fct
fct = fct1
mais ça ne marche pas. Pourriez-vous m'aider ?

Merci