Il Linguaggio Fortran 90/95

1.5 Istruzioni di assegnazione ed espressioni 39
L’espressione_di_caratteri può essere una qualsiasi combinazione valida di costanti,
variabili e operatori di caratteri. Un operatore di caratteri è un particolare operatore che
elabora dei caratteri e fornisce come risultato ancora dei caratteri. I principali tipi di operatori
di caratteri sono le specifiche di sottostringhe e l’operatore di concatenazione.
L’assegnazione del valore di un’espressione ad una variabile di caratteri merita un’osservazione.
Se l’espressione di caratteri è più corta della variabile alla quale deve essere assegnata,
la parte restante della variabile viene riempita con spazi vuoti (blank). Ad esempio, le seguenti
espressioni registrano il valore ”casa**” nella variabile parola (con il simbolo ”*” si è indicato
uno spazio bianco):
CHARACTER(LEN=6) :: parola
parola = "casa"
Viceversa, se l’espressione di caratteri è più lunga della variabile alla quale deve essere assegnata,
la parte in eccesso della variabile viene ”troncata”. Ad esempio, le seguenti istruzioni registrano
il valore ”case” nella variabile parola:
CHARACTER(LEN=4) :: parola
parola = "casetta"
Specifiche di sottostringa
Una specifica di sottostringa seleziona una ”porzione” di una variabile di caratteri e tratta questa
variabile come se fosse una variabile stringa indipendente. La porzione di stringa selezionata è
chiamata sottostringa.
Una sottostringa viene selezionata (estratta) ”appendendo” al nome della variabile stringa
uno specificatore di lunghezza. Quest’ultimo ha la forma:
(inizio:fine)
in cui le costanti intereinizio efine indicano la posizione del primo e dell’ultimo carattere da
estrarre. Pertanto, ad esempio, lo specificatore di lunghezza ”(3:5)” indica che la sottostringa
consiste del terzo, del quarto e del quinto carattere della stringa ”madre”.
Si noti che se la costante inizio viene omessa, essa è assunta per default pari ad uno; se,
invece, è omessa la costante fine il suo valore è assunto pari alla lunghezza della stringa; se,
infine, inizio risulta maggiore di fine viene generata una stringa nulla.
Ad esempio, data la stringa così dichiarata:
CHARACTER(LEN=8) :: stringa="abcdefgh"
possibili esempi di sottostringa sono:
stringa(2:4) ! "bcd"
stringa(3:7) ! "cdefg"
stringa(:4) ! "abcd"
stringa(7:) ! "gh"
stringa(5:5) ! "e"
stringa(6:3) ! Stringa nulla