Surcharge de fonctions + envoi de paramètres par tableau

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 :ccool:

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:

---

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/).