Discussion :

[mariellemm]

Bonjour!
J'ai besoin de rappeler plusieurs fois le même subroutine au cours de mon programme. la première fois ça marche très bien! Il prend bien en compte les paramètres que je lui demande et le résultat est juste.
Ensuite j'entame une boucle durant la quelle les valeurs de certain des paramétrés sont modifiés, le les affiches elles sont justes. Mais lorsque je rappelle les sous-programme qui a comme paramètres ces variables, ça ne marche pas!
Si j'affiche les paramètres avant le call ceux ci ont les bonnes valeurs et une fois que je les écrit dans le subroutine, il me les change!

Comment puis je faire?
En vous remerciant!
Marielle

[FR119492]

Salut!
Je suppose que tu as affiché les valeurs de tes paramètres juste avant l'appel de ton sous-programme, donc à l'extérieur de ton sous-programme. Essaie de les appeler juste après être entré dans ton sous-programme, donc à l'intérieur de celui-ci, tout au début, et compare les deux affichage, pour voir si tes paramètres sont transmis correctement.
Jean-Marc Blanc

[afrancisco]

Bonjour,

Cela arrive si ta routine utilise des variables globales, modifiées dans la boucle appelante ou si tu as des dépassements de tableaux (des variables peuvent alors changer mystérieusement)

Je te propose :
- de bien identifier tes variables locales/globales
- de préciser le comportement des arguments de ta routine avec "intent in, out, inout"
- d'activer les options de compilation de dépassement de tableau

bonne chasse

[mariellemm]

Merci à vous deux!
Je vais essayer avec vos précieux conseils!
Il y a des chance que vous me voyiez revenir dans une heure ou plus!

[mariellemm]

Alors, dans mon sous programme je n'affiche toujours pas les mêmes valeurs de mes paramètres que à l'extérieur, ces paramètres sont en fait des tableaux.
J'ai déclaré mes variables avec intent in pour les variable utilisé mais non modifié, et intent inout pour celle utilisé et modifié, je ne comprend pas trop à quoi sert le intent out...
Sinon mon sous programme est externe, je n'ai pas de contains. Est ce que je peux quand même avoir un problème de variable global ou local?

Merci encore!

[genteur slayer]

en gros le intent(in) sert à dire que c'est un paramètre, et le intent(out) que c'est un résultat...

ensuite, ta procédure doit être du genre:

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 toto
 
interface
  subroutine titi(P1,P2,R1)
    implicit none
    real(kind=8),dimension(:,:),intent(in)::P1,P2
    real(kind=8),dimension(:,:),intent(out)::R1
  end subroutine titi
end interface
 
end module toto
 
subroutine titi(P1,P2,R1)
  implicit none
  real(kind=8),dimension(:,:),intent(in)::P1,P2
  real(kind=8),dimension(:,:),intent(out)::R1
!
  <ce que fait ta routine>
return !à ne pas oubliéc'est mieux....
end subroutine titi

plus ton code principal:

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
 
 
program main
use toto,only : titi
implicit none
integer,parameter :: N=50,M=50 !par exemple
real(kind=8),dimension(N,M)::Pp1,Pp2,Rp1
integer k
!
do k=1,100
Pp1=.............
Pp2=.............
call titi(Pp1,Pp2,Rp1)
<traitement>
end do
 
end program main

et là, normalement tes tableaux Pp1 et Pp2 ne sont pas modifié au cours du call

[mariellemm]

ok, alors je viens de mettre la structure que tu me conseille, mais il m'affiche des erreur , apparemment il ne reconnait mes équivalent de titi et toto quand je met la ligne "use toto,only : titi"...
J'ai lu sur un cour de fortran trouvé sur internet que les interfaces pouvait se mettre dans le programme main mais ca ne marche pas non plus...