Il Linguaggio Fortran 90/95

1.9 Procedure Intrinseche 87
TRIM(STRING)
Restituisce la stringa STRING depurata dagli eventuali spazi bianchi di coda. Se STRING è completamente
”bianca”, il valore restituito è una stringa nulla.
Esempio:
! Questa istruzione stampa il valore 31
WRITE(*,*) LEN( Stringa con caratteri bianchi )
! Questa istruzione stampa il valore 26
WRITE(*,*) LEN(TRIM( Stringa con caratteri bianchi ))
VERIFY(STRING,SET[,BACK])
Restituisce la posizione della prima ricorrenza di un carattere di STRING che non è presente in
SET operando la ”scansione” da sinistra. Se la variabile opzionale BACK è presente con valore
.TRUE. allora la funzione restituisce la posizione dell’ultima ricorrenza di un carattere diSTRING
che non è presente in SET. Il risultato della funzione è zero se tutti i caratteri di STRING sono
presenti in SET.
Se tutti i caratteri di STRING sono presenti anche in SET oppure se entrambe le stringhe
hanno lunghezza nulla, la funzione restituisce il valore zero.
Esempio:
INTEGER(4) position
...
position = VERIFY (’banana’,’nbc’) ! ris: position = 2
position = VERIFY (’banana’,’nbc’, BACK=.TRUE.) ! ris: position = 6
position = VERIFY (’banana’,’nbca’) ! ris: position = 0