Discussion :

[Grim971]

Bonsoir,

Je cherche a réécrire un programme Fortran en VBA mais je bute sur le bout de code suivant :

Code :

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

1
2
3
4
5
 
      IF(ABS(BIGA)-ABS(A(IJ))) 20,30,30
20    BIGA = A(IJ)
      IMAX = I
30    CONTINUE

Quelqu'un pourrait-il me l'interpréter afin que je comprenne?

Merci

[Sylvain Bergeron]

C'est un IF-arithmétique et ça date de Fortran 1 (1956). Il y a une expression numérique et branchement à 3 étiquettes possibles, selon que le résultat de l'expression est négatif, nul, ou positif. Dans ton cas, ça se traduit par :

Code :

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

1
2
3
4
5
 
if(abs(BIGA)-abs(A(IJ)) < 0 ) then
   BIGA = A(IJ)
   IMAX = I
endif

[Grim971]

Merci pour ta réponse : simple et efficace.

Je ne l'avais trouvé dans aucun cours.

[Sylvain Bergeron]

Tu ne l'as trouvé dans aucun cours ?

Le if arithmétique est la seule forme de if avant l'invention des if logiques en Fortran IV (1962). Ils sont officiellement classés obsolètes depuis Fortran 90. Comme ils sont un ingrédient essentiel de la programmation spaghetti, ce n'est pas très surprenant qu'ils soient difficiles à trouver dans des cours, dont l'objectif est d'enseigner de bonnes pratiques.

Dans Wikipedia, on trouve : « (...) le branchement conditionnel était le « IF-arithmétique » à trois adresses : IF (A-B) 10, 20, 30 indiquait de sauter aux instructions d'étiquette 10, 20 ou 30 selon que A-B était négatif, nul ou positif. ». La page anglaise de Wikipedia est plus complète et fait une bonne rétrospective du arithmetic if.