Discussion :

[michubuntu]

Bonjour
je viens de tomber sur un if artihmetique dans un vieux code fortran 77.

Je souhaite le remplacer par un if logique mais j'ai un doute sur l'algo car il semble que le if soit imbriqué dans une boucle do ?
en gros si ARRAY(K,J) n'est pas NUL, on sort de la boucle 21 c'est ça ?

Merci de votre aide

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
 
      IF (ARRAY(K,K)) 41,21,41
 
   21 DO 23 J=K,NORDER
      IF (ARRAY(K,J)) 31,23,31
 
   23 CONTINUE
 
      DETERM=0.
      RETURN
 
   31 DO 34 I=K,NORDER
      SAVE=ARRAY(I,J)
      ARRAY(I,J)=ARRAY(I,K)
   34 ARRAY(I,K)=SAVE

PS : je n'ai pas mis le label 41 mais il n'est pas important.

[Sylvain Bergeron]

Bonjour
je viens de tomber sur un if artihmetique dans un vieux code fortran 77.

Je souhaite le remplacer par un if logique mais j'ai un doute sur l'algo car il semble que le if soit imbriqué dans une boucle do ?
en gros si ARRAY(K,J) n'est pas NUL, on sort de la boucle 21 c'est ça ?

Merci de votre aide

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
 
      IF (ARRAY(K,K)) 41,21,41
 
   21 DO 23 J=K,NORDER
      IF (ARRAY(K,J)) 31,23,31
 
   23 CONTINUE
 
      DETERM=0.
      RETURN
 
   31 DO 34 I=K,NORDER
      SAVE=ARRAY(I,J)
      ARRAY(I,J)=ARRAY(I,K)
   34 ARRAY(I,K)=SAVE

PS : je n'ai pas mis le label 41 mais il n'est pas important.

Le "if (Array(k,k)) 41,21,41" pourrait être remplacé par "if (Array(k,k) /= 0) goto 41". Si l'étiquette 41 suit immédiatement le bloc, il serait alors possible de remplacer le if par "f (Array(k,k) == 0) then" et mette un endif à la position de l'étiquette 41.

Le "if (Array(k,j)) 31,23,31" pourrait être remplacé par "if (Array(k,j) /= 0) goto 31". Ce if sert de condition de sorti de la boucle. Il serait difficile de le remplacer directement par une construction if ... then ... endif, à moins de déplacer la deuxième boucle dans la première...