Il Linguaggio Fortran 90/95

86 Tipi ed espressioni
l = LLE(’ABC’,’ABC’) ! ris .TRUE.
l = LLE(’ABC’,’AABCD’) ! ris .FALSE.
LLT(STRING_A,STRING_B)
Restituisce il valore .TRUE. se STRING_A < STRING_B secondo la sequenza di collating ASCII.
Gli argomenti STRING_A e STRING_B devono essere stringhe di caratteri con kind di default.
Esempio:
LOGICAL :: l
...
l = LLT(’abc’,’abd’) ! ris: .FALSE.
l = LLT(’aaxyz’,’abcde’) ! ris: .TRUE.
REPEAT(STRING,NCOPIES)
Restituisce una stringa formata concatenando NCOPIES copie di STRING una dietro l’altra. Se
STRING è completamente ”bianca” eNCOPIES vale zero, la stringa restituita avrà lunghezza nulla.
Esempio:
CHARACTER(LEN=6) :: str
str = REPEAT(’ho’,3) ! restituisce la stringa ’hohoho’
SCAN(STRING,SET[,BACK])
Restituisce la prima ricorrenza di un carattere di SCAN in STRING operando una ”scansione” da
sinistra. Se il parametro opzionale BACK è presente e vale .TRUE. la scansione avviene da destra
ma il ”conteggio” avviene ancora da sinistra. Se BACK vale .TRUE. la scansione viene effettuata
da destra e la funzione restituisce la posizione dell’ultima ricorrenza di un carattere di SCAN in
STRING. Se nessun carattere di SET si trova anche in STRING, oppure se la lunghezza di SET o
di STRING è nulla, la funzione restituisce il valore zero.
Gli argomenti SET e STRING sono stringhe di caratteri mentre l’argomento opzionale BACK
deve essere di tipo LOGICAL.
Esempio:
INTEGER :: i
...
i = SCAN (’Fortran’,’tr’) ! ris: i = 3
i = SCAN (’Fortran’,’tr’, BACK=.TRUE.) ! ris: i = 5
i = SCAN (’Fortran’,’for’) ! ris: i = 0