Il Linguaggio Fortran 90/95

5.12 Procedure intrinseche 271
IOR(I,J)
Restituisce l’or inclusivo di tutti i bit di I con i corrispondenti bit di J, in accordo con la
seguente tabella di verità:
I 1 1 0 0
J 1 0 1 0
IOR(I,J) 1 1 1 0
Gli argomenti I e J devono avere medesimo parametro di kind, che corrisponde al parametro
di kind del risultato.
ISHIFT(I,SHIFT)
Restituisce un intero con il medesimo parametro di kind di I e valore ottenuto da quello di
I spostandone i bit di SHIFT posizioni a sinistra, se SHIFT è positivo, a destra se SHIFT è
negativo. I bit ”sgomberati” sono posti pari a zero. L’argomento intero SHIFT deve soddisfare
alla condizione |SHIFT|≤BIT_SIZE(I).
ISHIFTC(I,SHIFT[,SIZE])
Fornisce un intero avente il parametro di kind di I e valore ottenuto applicando ai SIZE bit
più a destra di I (o a tutti i bit di I se SIZE è assente) uno ”shift circolare” a destra (se SHIFT
è positivo) o a sinistra (se SHIFT è negativo). Il valore dell’argomento intero SHIFT non deve
superare, in valore assoluto, il valore di SIZE (o di BIT_SIZE(I) se SIZE è assente).
NOT(I)
Restituisce il complemento logico di tutti i bit di I, in accordo con la seguente tavola di verità:
I 0 1
NOT(I) 1 0
MVBITS(FROM,FROMPOS,LEN,TO,TOPOS)
Si tratta dell’unica subroutine del gruppo. Essa copia la sequenza di bit di FROM di lunghezza
LEN e che parte dalla posizione FROMPOS nel target TO a partire dalla posizione TOPOS. I
bit rimanenti restano inalterati. Tutti i parametri sono di tipo INTEGER ed hanno attributo
INTENT(IN) ad eccezione di TO che ha attributo INTENT(INOUT). L’argomento TO, inoltre, deve
avere lo stesso parametro di kind di FROM. Si noti che una stessa variabile può essere specificata
contemporaneamente come FROM e come TO. I parametri di questa procedura devono soddisfare
alle condizioni:
FROMPOS+LEN≤BIT_SIZE(FROM)
LEN≥0
FROMPOS≥0
TOPOS+LEN≤BIT_SIZE(TO)
TOPOS≥0