Fichier *.dll avec des call dans une subroutine.

**macErmite** · 01/11/2016, 14h45

Bonjour,

Avec Fortran77, j'ai besoin de générer un fichier *.dll

Jusqu’à présent avec les lignes de commandes suivantes :

Code :

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

1
2
gfortran -c solution.f
gfortran -shared -o solution.dll solution.o

Je parvenais à faire le travail; c'est à dire générer une fichier *.dll sur la base d'une simple subroutine.

Mais depuis que j'y ai rajouté un appel de fonction : call itime, le résultat attendu est faussé. J'ai l'impression que je dois inclure cette fonction itime lors de la génération du fichier *.dll ...

Pouvez-vous m'éclairer ?

Merci.

**Ehouarn** · 03/11/2016, 08h13

Bonjour,

Envoyé par macErmite

Mais depuis que j'y ai rajouté un appel de fonction : call itime, le résultat attendu est faussé..

Qu'entends-tu par là? Un exemple illustratif serait sûrement utile.

La routine itime() est intrinsèque donc il n'y a pas de raison de vouloir l'inclure dans ta dll (à moins qu'il n'y ai là une subtilité Windows...)

**macErmite** · 06/11/2016, 16h50

Pour les besoins d'un programme extérieur, j'ai besoin de générer cette DLL :

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
SUBROUTINE varasub(moyenne, sigma, x, y)
 
      real*8 moyenne, sigma, u, v, ppi, x, y
      real rand
 
      ppi = 3.14159265358979
 
      u = rand()
      v = rand()
 
      x = (sqrt(-2 * log(v))) * cos(2 * ppi * u) * sigma + moyenne
      y = (sqrt(-2 * log(v))) * sin(2 * ppi * u) * sigma + moyenne
 
      RETURN
 
      END

Mais à chaque appel de cette DLL, la séquence sensé être aléatoire ne l'est pas. Elle me génère la même séquence.

Je ne suis pas informaticien de formation, si vous pouviez m'apporter votre aide ?

Merci.

**Ehouarn** · 06/11/2016, 18h24

Bonjour,

La fonction rand() ne fait que donner accès à des valeurs pseudo-aléatoires.
Il est donc normal de retrouver toujours les mêmes valeurs, à moins d'initialiser (au premier appel) le processus avec une graine différente.
En pratique on obtiendra toujours un programme donnant le même résultat d'une exécution à l'autre si il utilise toujours la même graine.
Si on veut retrouver un "vrai" comportement aléatoire, alors on peut par exemple initialiser la graine avec l'horloge.

Un exemple vaut souvent un long discours:

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
 
      program test_rand
        integer,parameter :: seed = 86456
        integer :: clockseed
 
        ! Avec une graine "figée":
        print *, rand(seed), rand(), rand(), rand()
        ! On aura les mêmes valeurs que ci-dessus en reprenant la même graine:
        print *, rand(seed), rand(), rand()
 
        ! initialisation de la graine avec l'horloge => résultats différent à chaque exécution du programme
        call system_clock(count=clockseed)
        write(*,*) "clockseed:",clockseed,
     &                 " rand(clockseed)=",rand(clockseed),
     &                 " rand()=",rand()
 
      end program test_rand