Discussion :

[shadock0]

Bonjour,

Voici mon problème:

Je lance une fonction "interpolate" située dans un module "FIM". Or ce module charge un autre module contenant mes variables générales utiles (que je n'aurais ainsi pas besoin de passer en argument.

Cela fonctionne très bien pour toutes les fonctions du module FIM... sauf interpolate:

Lorsque le programme arrive dans interpolate, j'ai le droit au message d'erreur suivant:

Code :

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

forrtl: severe (193): Run-Time Check Failure. The variable 'fim_mp_interpolate_$NTHEI' is being used without being defined

Pourtant la variable nthei est bel et bien définit et lue plus tôt et utilisée par d'autres fonctions du module FIM. alors pourquoi dans le cas de cette fonction cela ne marche pas?

Le module avec les variables ressemble à ça:

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
 
module AAA
 
  use BBB
  use CCC
 
  implicit none
  save
 
  ...
 
  integer :: nb_shaperatio, align_process, nthei,ntheo,nphio,nphii
 
  ...
 
end module ellipsoidal

Je le charge dans mon module FIM:

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
module FIM
 
  use AAA
  use CCC
 
contains
 
  SUBROUTINE FIM1(a,b,c...)
  ...
  END SUBROUTINE  FIM1
 
  SUBROUTINE interpolate(sz_grain,lambda,shp_ratio,thei,theo,phio,phii,f)
 
    implicit none
 
   ...    
 
    integer:: m,nthei,ntheo,nphio,nphii
    real, dimension(:),pointer:: tab_thei !size nthei
    real, dimension(:),pointer:: tab_theo !size ntheo
    real, dimension(:),pointer:: tab_phio !size nphio
    real, dimension(:),pointer:: tab_phii !size nphii
 
    if (.not.((size(tab_thei).eq.nthei).and.(size(tab_theo).eq.ntheo)&
         .and.(size(tab_phio).eq.nphio).and.(size(tab_phii).eq.nphii)))then
       write(*,*)"interpolate input error : array size unexpected"
       STOP
    end if
 
    ...
 
  END SUBROUTINE INTERPOLATE
 
  ...
 
END MODULE FIM

Au niveau du test donc, la variable nthei est inconnue alors même que je l'avait utilisé dans d'autres subroutines de FIM auparavant.

Comment cela se fait-il ? Comment solutionner ce problème ?

Je code en f90 et j'utilise ifort sous linux.

Merci beaucoup pour votre aide.

[Sylvain Bergeron]

Relis le message. Ça ne dit pas que la variable n'est pas déclarée, mais qu'elle est non définie. Ça veut dire qu'aucune valeur ne lui est assignée lorsque tu l'utilises (comprendre : du côté droit du égal dans une expression).

En fait, le problème vient de la ligne :

integer:: m,nthei,ntheo,nphio,nphii

Cette ligne a pour effet de créer des variables locales appelées m, nthei, ntheo, nphio et nphii. Les variables externes nthei, ntheo, nphio et nphii déclarées dans le module AAA ne sont alors plus visibles dans la routine interpolate. En utilisant nthei, tu utilises donc la variable locale nthei, à laquelle aucune valeur n'a possiblement été assignée...

Pour corriger, tu dois donc enlever de la déclaration les variables nthei, ntheo, nphio et nphii pour rendre les variables de AAA visibles.

[shadock0]

Han ok merci beaucoup !

En relisant mes autres fonctions je me rend compte que c'est ce que j'avais fais mais ça ne m'avait pas sauté aux yeux: je ne redéclarais pas les variables et ça fonctionnait.

Je ne sais pas pourquoi j'étais certains qu'il fallait redéclarer...

En tout cas, je referais plus cette erreur au moins!

Merci

[Sylvain Bergeron]

Je ne sais pas pourquoi j'étais certains qu'il fallait redéclarer...

Si tu as appris le Fortran « d'époque » (lire 77), les variables globales étaient partagées via des common et devaient être déclarées dans chaque routine voulant y accéder. La confusion vient peut-être de là...