Version imprimable
Bonjour,
Je recherche une façon de passer un nombre non fixé d'arguments à une subroutine. De façon plus précise, je souhaite créer une subroutine réalisant le produit tensoriel d'un nombre quelconque de matrices données en argument.
La subroutine idéale serait donc appelée par un
utilisable quelque soit le nombre de matrice Ak données en argument.Code:CALL TensorProduct(A1,A2,....)
Merci d'avance à ceux qui prendront le temps de me répondre.
2 solutions :
- Tu utilises l'attribut optional pour les tableaux 2, 3, ... , n
- Tu écris n routines (Routine à 1 arg, routine à 2 args, ...) et tu les associes dans une routine générique (interface to ... module procedure ...)
Merci pour votre réponse,
J'ai opté pour l'utilisation d'attributs optional, même si je trouve cela malheureusement assez lourd. Il est dommage que Fortran n'ait pas une façon plus élégante de gérer ce problème.
Néanmoins, merci pour tout.