Discussion :

[Kaluza]

Bonjour.

J'avais 2 petites questions en Fortran :
1) Est-il possible de surcharger des fonctions à la manière du C++ et si oui comment faire ?

2) Imaginons que j'ai une fonction coordminmax(xyz_min,xyz_max) où xyz_min et xyz_max sont des real(KIND=8),dimension(1:3) (c'est à dire des tableaux à 1 colonne et 3 lignes dont les indices vont de 1 à 3). Imaginons encore que dans mon unité appelante j'ai xmin, xmax, ymin, ymax, zmin, zmax, c'est à dire mes 6 coordonnées qui devraient normalement être dans des tableaux, du moins pour le passage à la fonction. Ma question est la suivante : existe-t-il une possibilité pour passer mes 6 variables à la fonction sans créer 2 tableaux dans l'unité appelante ?

Merci beacoup

[Sylvain Bergeron]

Je ne me souviens plus très bien de ce qu'est un function overload en C++, alors la réponse ne sera peut-être pas adéquate...

Tu dois utiliser un module et une interface associant plusieurs procédures du module à un nom public. Pour prendre ton exemple coordminmax, tu dois faire :

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
 
module Exemple
  interface coordminmax
    module procedure coordminmax2V
    module procedure coordminmax6S
  end interface
 
contains
  function coordminmax2V(Pt1,Pt2)
    real(8), intent(in) :: Pt1(3),pt2(3)
    ...
    end function
 
  function coordminmax6S(X1,Y1,Z1,X2,Y2,Z2) result (R)
    real(8), intent(in) :: X1,Y1,Z1,X2,Y2,Z2
    type ??? :: R
    R = coordminmax2V([X1,Y1,Z1],[X2,Y2,Z2])
    end function
end module
program
  use Exemple
 
  R1 = coordminmax(PtX,PtY)
  R2 = coordminmax(a,b,c,d,e,f)
...

Question 2 : voir dans l'exemple précédent. Si ton compilateur supporte uniquement du F95 ou moins, la syntaxe [éléments] peut ne pas fonctionner. Tu dois alors utiliser la syntaxe (/éléments/).