Discussion :

[Grim971]

Bonjour,

Je bloque à nouveau sur un bout de code que je souhaite comprendre pour le transposer en VBA.

Cela concerne uniquement les lignes comprenant SAVE : 15, 17, 22 et 24. Dans les cours trouvés sur le net, la fonction SAVE ne présente pas cette syntaxe...

Merci,

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
16
17
18
19
20
21
22
23
24
 
C*		 TEST FOR PIVOT LESS THAN TOLERANCE (SINGULAR MATRIX)
C*
      IF(ABS(BIGA)-TOL) 35,35,40
   35 KS=1
      RETURN
C*
C*		 INTERCHANGE ROWS IF NECESSARY
C*
   40 I1=J+N*(J-2)
      IT=IMAX-J
      DO 50 K=J,N
      I1=I1+N
      I2=I1+IT
      SAVE=A(I1)
      A(I1)=A(I2)
      A(I2)=SAVE
C*
C*		 DIVIDE EQUATION BY LEADING COEFFICIENT
C*
   50 A(I1)=A(I1)/BIGA
      SAVE=B(IMAX)
      B(IMAX)=B(J)
      B(J)=SAVE/BIGA

[Hédhili Jaïdane]

Bonjour.

Il y a très très longtemps que je n'ai pas touché au Fortran et je vais me hasarder sur une explication :
Je ne pense pas qu'ici le SAVE soit une fonction ou une instruction mais juste le nom d'une variable utilisée pour échanger les valeurs entre deux autres variables pour éviter d'en écraser une :
Si on mettait directement A(I2) dans A(I1) on perdrait la valeur qu'on voudrait mettre dans A(I2), d'où l'échange entre A(I2) et A(I1) par l'intermédiaire de la variable SAVE.
Etant étonné de l'utilisation d'un mot réservé comme nom de variable, j'espère ne pas me planter comme un poireau.

[Sylvain Bergeron]

Save est effectivement le nom d'une variable.

Pourquoi utilisez une variable dont le nom est un mot réservé ? Parce qu'il n'y a pas de mot réservé en Fortran. Et c'est presque un prérequis pour un langage voulant durer longtemps : pour que les programmes écrits antérieurement continuent à être compilables tout en ayant par hasard des variables dont le nom est devenu une instruction, il ne peut y avoir de mot réservé. Et c'est possiblement ce qui se passe ici : le if arithmétique de la ligne 4 aurait pu être écrit IF (ABS(BIGA).GT.TOL) GOTO 40 depuis 1962, le programme est donc très ancien, alors que le SAVE est apparu en Fortran 77.

[Hédhili Jaïdane]

.

pour toutes infos qui me revoient à ma prime jeunesse

[Grim971]

Merci pour vos retours, je m'en doutais un peu mais ne connaissant pas trop le Fortran et ayant remarqué qu'il s'agissait d'une instruction, j'avais un doute sur le fait que cela soit une variable.

Merci et bonne soirée,