Il Linguaggio Fortran 90/95

26 Tipi ed espressioni
Se una costante di caratteri eccede la lunghezza utile per una riga di comando (132 colonne),
il suo valore deve essere spezzato su più linee, come nel seguente esempio:
stringa = "Questa è una delle stringhe più lunghe che &
&mi viene in mente in questo momento ma ne &
&esisteranno sicuramente di molto più lunghe!"
C’è un aspetto importante che riuguarda le costanti con nome di tipo CHARACTER, ossia il
fatto che la sua lunghezza può essere specificata da un asterisco (”*”), essendo in tal modo
mutuata direttamente dal suo valore. In tal modo si ovvia alla necessità di dover contare
i caratteri della stringa il che rende più semplice modificarne successivamente la definizione.
L’istruzione che segue sfrutta proprio questa caratteristica:
CHARACTER(LEN=*), PARAMETER :: str="Nessun bisogno di contare i caratteri"
Tuttavia questa caratteristica non può essere sfruttata quando un array di caratteri è definito
a mezzo di un costruttore di array, dal momento che gli elementi devono essere della stessa
lunghezza:
CHARACTER(LEN=7), DIMENSION(2), PARAMETER :: aaa=(/"Antonio","Auletta"/)
1.3.7 Oggetti di tipo LOGICAL
L’istruzione LOGICAL specifica che il nome di una data variabile o di una data funzione verrà
utilizzato per riferirsi ad un oggetto di tipo ”booleano”. La sua sintassi è la seguente:
LOGICAL [[([KIND=]parametro di kind)][, attributi] ::] lista_di_oggetti
Esempi di dichiarazioni (entity-oriented) di variabili logiche sono:
LOGICAL, ALLOCATABLE, DIMENSION(:) :: flag1, flag2
LOGICAL(KIND=byte), SAVE :: doit, dont
Le stesse dichiarazioni, in una forma orientata agli attributi, appaiono invece nel seguente modo:
LOGICAL :: flag1, flag2
LOGICAL(KIND=byte) :: doit, dont
ALLOCATABLE flag1(:), flag2(:)
SAVE doit, dont
Una costante di tipo LOGICAL può rappresentare unicamente i valori logici ”vero” e ”falso” e
assume una delle seguenti forme:
.TRUE.[_k]
.FALSE.[_k]
in cui k è il parametro di kind opzionale. Nel caso in cui il parametro di kind non è esplicitamente
dichiarato per esso viene assunto un valore di default.
Le variabili logiche rappresentano raramente il risultato di un programma Fortran. Tuttavia,
esse svolgono un ruolo essenziale per il corretto funzionamento di molti programmi. La maggior
parte delle strutture di controllo dei programmi, infatti, sono governate dai valori assunti da
variabili o da espressioni logiche.