Il Linguaggio Fortran 90/95

84 Tipi ed espressioni
IACHAR(C)
Restituisce la posizione occupata dalla variabile C, di tipo CHARACTER, nel sistema di codifica
ASCII. Il risultato, che è di tipo INTEGER, è un valore compreso tra 0 ed n-1, essendo n il
numero di caratteri del sistema di codifica adottata dal processore.
Ad esempio, se i è una variabile di tipo INTEGER, l’istruzione:
i = IACHAR(’W’)
restituisce il valore 87.
ICHAR(C)
Restituisce la posizione occupata dalla variabile C, di tipo CHARACTER, nel sistema di codifica
utilizzato dall’elaboratore, associato al parametro di kind dell’argomento. Il risultato, che è di
tipo INTEGER, è un valore compreso tra 0 ed n-1, essendo n il numero di caratteri del sistema
di codifica adottata dal processore.
INDEX(STRING,SET[,BACK])
Se la variabile logica BACK è assente o vale .FALSE. restituisce la posizione di partenza di SET
nella stringa STRING. Se la variabile logica BACK vale .TRUE. allora la funzione restituisce la
posizione di partenza dell’ultima occorrenza. Il valore ritornato è zero nel caso in cui SET non
sia presente in STRING.
Esempio:
INTEGER :: i
...
i = INDEX(’banana’,’an’,BACK=.TRUE.) ! ris: i = 4
i = INDEX(’banana’,’an’) ! ris: i = 2
i = INDEX(’banana’,’on’) ! ris: i = 0
LEN(STRING)
Restituisce la lunghezza della stringa STRING comprensiva degli eventuali spazi bianchi di coda.
Esempio:
CHARACTER(LEN=11) str
INTEGER :: i
...
i = LEN (str) ! restituisce 11
i = LEN(’Una frase con 6 spazi bianchi ’) ! restituisce 30