Discussion :

[sun19]

Bonjour,

Je souhaite traduire du code Fortran en VBA.
Donc dans mes déclarations, j'ai effectué les traductions suivantes :

Code :

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

1
2
3
4
Fortran         -->           VBA
Integer*4  a    -->    dim a as long
real*8 b        -->    dim b as double
b=FLOAT(a)/100  -->  b=Cdbl(a)/100

En comparant les résultats de mes 2 algos (plusieurs multiplications et divisions), j'ai "quasiment" le même résultat mais avec un problème d'arrondi que je n'arrive pas résoudre.

Dans VBA, le type de données Double me donne le domaine suivant :

-1,79769313486231E308 et -4,94065645841247E-324 pour les nombres négatifs et entre 4,94065645841247E-324 et 1,79769313486231E308 pour les positifs

alors que Fortran me donne le suivant pour real*8 :

-1.797693134862316D+308 à -2.225073858507201D-308, 0, 2.225073858507201D-
308 à 1.797693134862316D+308 pour un réel double précision.

Mon problème viendrait-il du fait que real*8 et double ne sont pas exactement le même type de données ?

Si quelqu'un a déjà traduit du code fortran vers VBA, merci de me faire partager son expérience.

Merci

[Sylvain Bergeron]

Je n'ai pas d'expérience sur les exposants minimums et maximums permis. Je répondrai uniquement sur la précision.

Fortran --> VBA
Integer*4 a --> dim a as long
real*8 b --> dim b as double
b=FLOAT(a)/100 --> b=Cdbl(a)/100

float(a), c'est un single et non un double. Essaie avec dble(a) en Fortran pour voir l'effet.

Mon pb viendrait-il du fait que real*8 et double ne sont pas exactement le même type de données?

real (8) et double devrait être la même chose. C'est plus une question de processeur que de language.

Au delà du problème de float/dble indiqué plus haut, il y a le risque que VBA soit moins stricte sur la précision que Fortran et qu'il utilise la précision du processeur (80 bits et non 64) pour les calculs intermédiaires. C'est à vérifier. Si c'est la cause, il faudra alors briser les expressions VBA pour forcer la troncation dans des variables doubles.

[sun19]

En comparant "pas à pas" les calculs de mes 2 algos, j'obtiens des résultats diffréents pour 2 formules.
1ère formule :

Fortran ---> vba
INTEGER*4 Itemp ---> dim Itemp as Long
if (Itemp.GT.0) Itemp=Itemp+25 ---> If Itemp > 0 Then Itemp = Itemp + 25
if (Itemp.LT.0) Itemp=Itemp-25 ---> If Itemp < 0 Then Itemp = Itemp - 25
Itemp=Itemp/50*5 ---> Itemp = Itemp / 50 * 5

Qd Itemp=19000 au début du code, j'obtiens à la fin avec Fortran 1900 alors qu'avec vba j'ai 1902. La diiférence doit venir de l'opération :

Itemp=Itemp/50*5

mais je n'arrive pas à l'expliquer.

2ème formule :

Fortran ---> vba
INTEGER*4 a,b ---> dim a as Long,b as long
a = ( b / 1000 + 5 ) / 10 ---> a = ( b / 1000 + 5 ) / 10

Si a=99754220, Fortran donne pour b 9975 alors que VBA donne 9976. Pourquoi?
Merci

[Sylvain Bergeron]

Problème simple.

En Fortran, un entier divisé par un entier donne un entier. En VBA, un entier divisé par un entier donne un réel.

L'expression

Code :

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

Itemp = Itemp / 50 * 5

a du sens en Fortran, mais pas en VBA, puisque la conversion en réel de la division rend l'expression équivalente a

Code :

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

Itemp = Itemp / 10

En VBA, tu dois donc prendre la partie entière de la division avant de multiplier par 5.

[sun19]

Merci beaucoup
Le pb venait de là il faut faire attention aux formules qui combinent des divisions et des multiplications.
donc pour traduire en VBA le code Fortran suivant :

Code :

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

Itemp = Itemp / 50 * 5

on met

Code :

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

Itemp=Fix(Itemp/50)*5

.

Merci encore