Parameter et function

**feynman** · 02/04/2008, 11h30

J'ai une question qui me gêne un peu :
est-ce qu'on peut utiliser les fonctions dans la définition des parametres ?
Par exemple, est-ce qu'on peut écrire :

Code :

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

 parameter(pi=4.*atan(1.))

?
J'ai essayé mais ça ne marche pas, n'y a-t-il pas quelque chose d'équivalent ?
Merci

**FR119492** · 02/04/2008, 14h03

Salut !
Effectivement, ça n'est pas prévu. Personnellement, j'initialise Pi par une instruction exécutable, c'est-à-dire après toutes les déclarations.
Jean-Marc Blanc

**Sylvain Bergeron** · 02/04/2008, 15h03

Effectivement, les fonctions disponibles dans les expressions d'initialisation sont très limitées. Ce sont surtout des fonctions d'information (kind(), size(), len(), ...).

L'alternative à la méthode proposée par Jean-Marc est évidemment d'écrire littéralement la valeur de pi dans l'expression. Ça présente l'avantage d'avoir une vrai constante, et non une variable:

Code :

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

real, parameter :: pi = 3.141592653589793238462643d0

En Fortran 95, il est alors très facile d'avoir un module contenant des constantes usuelles :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
module Constantes
   implicit none
   integer, parameter :: fp_kind = selected_read_kind(15)
   real (fp_kind), parameter :: pi = 3.141592653589793238462643_fp_kind
end module
...
program test
   use Constantes
   ...
   a = sin(pi*...)
   ...

**feynman** · 02/04/2008, 15h12

Merci Sylvain Bergeron (et Jean Marc en premier lieu) , mais j utilise le F77 , est ce ta proposition marche toujours?
merci

Envoyé par Sylvain Bergeron

Effectivement, les fonctions disponibles dans les expressions d'initialisation sont très limitées. Ce sont surtout des fonctions d'information (kind(), size(), len(), ...).

L'alternative à la méthode proposée par Jean-Marc est évidemment d'écrire littéralement la valeur de pi dans l'expression. Ça présente l'avantage d'avoir une vrai constante, et non une variable:

Code :

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

real, parameter :: pi = 3.141592653589793238462643d0

En Fortran 95, il est alors très facile d'avoir un module contenant des constantes usuelles :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
module Constantes
   implicit none
   integer, parameter :: fp_kind = selected_read_kind(15)
   real (fp_kind), parameter :: pi = 3.141592653589793238462643_fp_kind
end module
...
program test
   use Constantes
   ...
   a = sin(pi*...)
   ...

**Sylvain Bergeron** · 02/04/2008, 16h31

Tu n'as qu'à utiliser la syntaxe F77 pour la ligne parameter. Si l'approche réutilisable du module t'intéresse, tu peux utiliser un fichier include:

Fichier Constantes.i

Code :

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

1
2
3
 
      real pi
      parameter (pi = 3.141592653589793238462643d0)

Utilisation :

Code :

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

1
2
3
4
5
6
7
 
      program test
      ...
      include 'Constantes.i'
      ...
      a = sin(pi*...
      ...

**François L.** · 06/08/2008, 22h27

Bonjour,

je me permets de rebondir sur la question. Je conseille à mes étudiants (des ingénieurs en génie chimique, l'informatique, c'est pas leur truc) d'utiliser la syntaxe

Code :

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

1
2
3
4
 
REAL :: Pi
...
Pi=4.e0 * ATAN(1.e0)

(et son homologue en double précision).

Je leur explique que ça évite les erreurs de typo, et permet de disposer de toutes les décimales possibles de Pi.

Mes collègues, eux, sont plutôt accros au Parameter.
Sauf que, pour des débutants ne connaissant ni les modules, ni les include, ça implique de retaper à chaque fois lesdites décimales...

Alors, l'utilisation du Parameter a-t-elle un avantage? (hors la simplicité, bien sûr), comme semble le laisser entendre un contributeur précédent? (à moins qu'il ne s'agisse que de l'impossibilité de modifier Pi, ce à quoi je souscris évidemment)

Merci de vos commentaires

**feynman** · 07/08/2008, 17h11

c est important a mon avis d utiliser le parameter, surtout dans les gros code, comme ca tu te rappelle toujours que tu as definit ce que tu veux.
la reponse de sylvain est la meuilleur

**genteur slayer** · 07/08/2008, 17h23

il me semble que certain compilo acceptent la syntaxe:

Code :

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

real(kind=8),parameter :: Pi=4.d0*datan(1.d0)

en tout cas, chez moi, g95 et gfortran le font très bien et sans soucis, d'ailleur,

Code :

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

1
2
3
4
5
6
7
program test
implicit none
real(kind=8),parameter :: pi=4.d0*datan(1.d0)
 
write(*,*)Pi
 
end program test

ce programme compiler avec les deux, gfortran donne une décimal de plus que g95...

**Sylvain Bergeron** · 07/08/2008, 22h00

Si

Code :

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

real(kind=8),parameter :: Pi=4.d0*datan(1.d0)

est accepté par certains compilateurs, c'est parce que c'est permis en Fortran 2003 et que certains compilateurs ont intégré cette fonctionnalité.

Pour répondre à François L, je préfère qu'une constante soit reconnu comme un parameter dans mes programmes, un peu parce que je suis un puriste, mais je comprends très bien qu'on ne veuille pas entrer 30 décimales dans chaque programme pour se protéger du jour où quelqu'un compilera le programme en quad... Mais en même temps, si les solutions modules / includes ne sont pas à la portée des débutants, les copier/coller devraient l'être. Reste qu'il y a des partisans de chaque approche et que sans la solution F03, chacune a des avantages et des inconvénients.