Bonjour,
j'ai un petit problème dont voici un exemple simple:
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?
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
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.
Partager