Fonction SAVE en VBA?

Version imprimable

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:

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

29/03/2018, 14h32
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.
29/03/2018, 17h23
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.
29/03/2018, 18h32
Hédhili Jaïdane

Citation:

Envoyé par Sylvain Bergeron

.

:merci: pour toutes infos qui me revoient à ma prime jeunesse :ave:
29/03/2018, 21h51
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,