Discussion :

[feynman]

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]

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]

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]

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

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]

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.]

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