Interface générique et fonction size
Bonjour,
j'ai un petit problème dont voici un exemple simple:
Code:
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.
