Condition IF sur Boucle DO

Bonjour,

J'aimerais mettre une condition dans une boucle, du style :

Code:

---

1 2 3 4 5 6 7 8 9 10

do i = x1,x2 if (a=5) then do j = y1,y2 else do j = y3,y4 endif [...] end do end do

---

Mais fortran ne semble pas du tout aimer les conditions de style IF ou CASE pour un DO, car, je pense qu'il ne veut pas redéfinir la variable d'incrémentation j dans une boucle.

Auriez vous une solution ?

Merci d'avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

do i = x1,x2 if (a=5) then jmin = y1 jmax = y2 else jmin = y3 jmax = y4 endif do j = jmin, jmax [...] end do end do

---

ha bah oui.

Merci