[Fortran 77] Boucle avec condition

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.

Soit ton tableau A(dim1, dim2)

Code:

---

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

---

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

Citation:

---

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:

---

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

---

ok merci

Citation:

---

Envoyé par feynman

...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, ...).