Bonjour,

j'ai un petit problème dont voici 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
15
16
17
18
19
20
21
 
module m_max
   interface xmax
        module procdedure dmax,zmax
   end interface xmax
contains
   subroutine dmax(v, max)
      implicit none
      double precision, dimension(*) :: v
      double precision :: max
      print*,size(v)
      [...]
   end subroutine dmax
   subroutine zmax(v, max)
      implicit none
      double complex, dimension(*) :: v
      double complex :: max
      print*,size(v)
      [...]
   end subroutine dmax
end module m_max
La fonction intrinsèque size ne fonctionne pas car l'interface n'est pas explicite (cf cours de l'IDRIS). Et bien entendu, j'ai une erreur à la compilation. Comment pourrais-je m'en sortir?

Merci d'avance pour vos conseils

PS: je précise que ceci est un exemple simple pour illustrer mon propos et que je ne cherche pas à faire une fonction max qui existe déjà en Fortran.