Discussion :

[feynman]

Bonjour,
Desolé pour cette question, mais je n'arrive pas à mettre une boucle avec une condition.

J'ai un tableau A(i,j) , et supposons que je doive calculer la somme de ces éléments sauf pour i et j différents de l et k respectivement (l et k sont fixés). J'ai pensé a faire un do while, mais le problème est : qu'est-ce que je dois mettre dans le do while ?
Merci de me clarifier un peu la chose.

[Grame]

Soit ton tableau A(dim1, dim2)

Code :

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

1
2
3
4
5
6
somme = 0
do i = 1, dim1
do j = 1, dim2
   if (i ==k .and. j == l) somme = somme + a(i,j)
end do
end do

[feynman]

ya pas de then dans ton if ou endif , de plus c est de f77

[Grame]

ya pas de then dans ton if ou endif , de plus c est de f77

THEN et END IF ne sont pas nécessaires si il y a une seule instruction.

De plus ce n'est PAS du f77.
en f77, j'aurais écrit :

Code :

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

1
2
3
4
5
      somme = 0
      do 10 i = 1, dim1
      do 10 j = 1, dim2
      if (i .eq. k .and. j .eq. ll) somme = somme + a(i,j)
10   continue

[feynman]

ok merci

[Sylvain Bergeron]

...calculer la somme de ces elements sauf pour i et j differents de l et k respectivement (l et k sont fixés)...

La négation (sauf) de différents, ça ne veut pas dire égales ? Auquel cas la somme est égale à A(l,k)...

En supposant que tu voulais dire « somme pour i et j différents », il faut faire comme l'a écrit Grame, mais en F77, comme tu le souligne, et en inversant la condition du if. À part ça, le if est OK; le then n'apparait pas parce que ce n'est pas la même forme de if. Bien que ça soit moins intuitif, le programme serait plus performant si tu initialisais la somme à -A(l,k) puis que tu enlevais la condition de la boucle parce que les branchements dans les boucles nuisent à l'optimisation de ces dernières (pipelining, unrolling, ...).