Parameter et function

:salut:
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:

---

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

---

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

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

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:

---

real, parameter :: pi = 3.141592653589793238462643d0

---

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

Code:

---

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*...) ...

---

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

Citation:

---

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:

---

real, parameter :: pi = 3.141592653589793238462643d0

---

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

Code:

---

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*...) ...

---

---

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:

---

1 2 3

real pi parameter (pi = 3.141592653589793238462643d0)

---

Utilisation :

Code:

---

1 2 3 4 5 6 7

program test ... include 'Constantes.i' ... a = sin(pi*... ...

---

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:

---

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 :P

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

il me semble que certain compilo acceptent la syntaxe:

Code:

---

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:

---

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... :mouarf:

Si

Code:

---

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.

OK, merci à tous. Je vais sans doute leur mettre les deux possibilités, j'en ai un peu marre de voir des

Code:

---

1 2	REAL, PARAMETER:: Pi = 3.14

---

:mouarf: