Discussion :

[julesu]

Bonjour à tous,

J'aimerais faire passer, en argument d'une procédure, une autre fonction à l'aide de la spécification "external". Cela se passe évidemment sans problème pour une fonction scalaire, mais dès que j'essaie avec une fonction de type tableau, impossible de compiler (Error: Conflicting attributes or multiple declaration of name.)
Je précise que les dimensions du tableau associé à la fonction sont fixe, et ne constituent donc pas un problème.
Mes recherches dans divers supports et sur le forum ne m'ont pas éclairé, les exemples pris pour les fonctions en arguments de procédure étant invariablement des scalaires..

Merci d'avance !

Julien

[Sylvain Bergeron]

Dans la fonction / subroutine appelante, tu dois déclarer une interface. Je ne suis pas certain de la syntaxe, mais ça ressemble à :

Code :

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

1
2
3
4
5
6
7
8
 
function MaFonction(Ext,...)
   external Ext
   interface
      function Ext(...) result(R)
         ....arguments
         real R(10,10)
...

[FR119492]

Salut !

Si tu modifiais légèrement ton sous-programme appelé par un autre pour en faire une subroutine plutôt qu'une fonction, ton problème serait résolu.

Jean-Marc Blanc

[julesu]

Bonsoir

Vos deux propositions fonctionnent, merci ! J’avais envisagé l’utilisation du bloc interface, mais il me manquait la close RESULT. Quant à la modification de la fonction en subroutine, elle s’avère un peu laborieuse dans mon cas mais le test sur un cas simplifié fonctionne.

Merci encore,

Julien