Patrick Corde & Anne Fouilloux

Constantes symboliques 49
3.7 – Constantes symboliques
L’attribut PARAMETER permet de donner un nom symbolique
à une constante littérale :
TYPE, PARAMETER :: n 1 =c 1 [, ..., n i =c i , ...]
où n i est le nom donné à une constante et c i sa valeur.
La notation suivante est aussi utilisable :
PARAMETER ( n 1 =c 1 [, ..., n i =c i , ...] )
Exemple
PROGRAM constante
LOGICAL, PARAMETER :: VRAI=.TRUE., FAUX=.FALSE.
DOUBLE PRECISION :: PI, RTOD
PARAMETER (PI=3.14159265d0, RTOD=180.d0/PI)
...
END PROGRAM constante
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux