Il Linguaggio Fortran 90/95

20 Tipi ed espressioni
1.3.1 Costanti con nome
Per assegnare un nome ad una costante basta includere l’attributo PARAMETER nell’istruzione di
dichiarazione di tipo:
tipo, PARAMETER :: nome = valore [, nome_2 = valore_2, ...]
dove tipo rappresenta il tipo di appartenenza della costante mentre nome è il nome con cui
ci si riferirà alla costante valore . Ad esempio, la seguente istruzione assegna il nome pi alla
costante reale 3.14 e il nome e alla costante reale 2.72:
REAL, PARAMETER :: pi=3.14, e=2.72
Si noti, in particolare, che se la costante è una stringa di caratteri allora non è necessario
dichiararne la lunghezza, così come esemplificato dalla seguente istruzione:
CHARACTER, PARAMETER :: frase="converge"
in quanto questa informazione viene automaticamente mutuata dalla lunghezza del lato destro
dell’assegnazione.
Oltre all’attributo PARAMETER il Fortran 90/95 mette a disposizione anche l’equivalente
istruzione PARAMETER la cui sintassi è la seguente:
PARAMETER (nome = valore [, nome_2 = valore_2, ...])
Un esempio di applicazione dell’istruzione PARAMETER è il seguente:
INTEGER :: l1, l2, l3
REAL :: x
CHARACTER :: str
PARAMETER(l1=10,l2=20,l3=30,x=1.234,str="finito")
che è un esempio di dichiarazione attribute-oriented, del tutto equivalente alla seguente possibilità:
INTEGER, PARAMETER :: l1=10, l2=20, l3=30
REAL, PARAMETER :: x=1.234
CHARACTER(LEN=6), PARAMETER :: str="finito"
che è, invece, entity-oriented. Si tratta, comunque, di un retaggio del Fortran 77 qui inserito
solo per motivi di completezza ed il cui uso comunque si sconsiglia.
1.3.2 Dichiarazioni esplicite ed implicite
Come visto in precedenza, esempi di istruzioni di dichiarazione esplicita di tipo (anche dette
istruzioni di specificazione di tipo) sono: