Discussion :

[Newenda]

Bonjour,

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

Code :

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

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.

[Sylvain Bergeron]

Code :

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

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

[Newenda]

ha bah oui.

Merci