Il Linguaggio Fortran 90/95

270 Unità di Programma
Del programma si offre anche un esempio di impiego:
Introdurre un intero:
13
La rappresentazione binaria di 13 e’:
00000000000000000000000000001101
IAND(I,J)
Restituisce l’and logico 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
IAND(I,J) 1 0 0 0
Gli argomenti I e J devono avere medesimo parametro di kind, che corrisponde al parametro
di kind del risultato.
IBCLR(I,POS)
Produce un intero avente stesso parametro di kind di I ed il cui valore viene valutato a partire
da quello diIponendone pari a zero il bitPOS. Naturalmente il valore interoPOS deve soddisfare
alla condizione 0≤POS≤BIT_SIZE(I).
IBITS(I,POS,LEN)
Restituisce un intero avente stesso parametro di kind di I e valori tutti nulli tranne i LEN valori
a partire dal bit POS che coincidono con i corrispondenti bit di I. Gli argomenti POS e LEN sono
interi non negativi soddisfacenti alla condizione POS+LEN≤BIT_SIZE(I).
IBSET(I,POS)
Produce un intero avente stesso parametro di kind diIed il cui valore viene valutato a partire da
quello di I ponendone pari ad uno il bit POS. Naturalmente il valore intero POS deve soddisfare
alla condizione 0≤POS≤BIT_SIZE(I).
IEOR(I,J)
Restituisce l’or esclusivo 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
IEOR(I,J) 0 1 1 0
Gli argomenti I e J devono avere medesimo parametro di kind, che corrisponde al parametro
di kind del risultato.