Il Linguaggio Fortran 90/95

5.12 Procedure intrinseche 269
! ...
WRITE(*,10) "N.ro di kind = ",KIND(i1)," ---> N.ro di bit = ",BIT_SIZE(i1)
WRITE(*,10) "N.ro di kind = ",KIND(i2)," ---> N.ro di bit = ",BIT_SIZE(i2)
WRITE(*,10) "N.ro di kind = ",KIND(i3)," ---> N.ro di bit = ",BIT_SIZE(i3)
10 FORMAT(T1,A15,I2,A19,I3)
Eseguito su un PC con processore Pentium il frammento precedente produce il seguente output:
N.ro di kind = 1 ---> N.ro di bit = 8
N.ro di kind = 2 ---> N.ro di bit = 16
N.ro di kind = 4 ---> N.ro di bit = 32
BTEST(I,POS)
Fornisce il valore logico .TRUE. se il bit avente posizione POS nella rappresentazione di I ha
valore 1, altrimenti fornisce il valore .FALSE. Entrambi gli argomenti sono di tipo INTEGER, in
particolare deve risultare 0≤POS≤BIT_SIZE(I).
Una interessante applicazione della funzione intrinseca BTEST è riportata di seguito. Il
seguente programma, infatti, fa uso della funzione BTEST per ”costruire” la rappresentazione
binaria di un valore intero di modo che essa possa essere riprodotta a stampa evitando, in tal
modo, di ricorrere al descrittore di formato B.
PROGRAM Integer_Representation
!
! Scopo: stampare un valore intero secondo la rappresentazione
! binaria, senza fare uso del descrittore di formato "B"
!
INTEGER :: num ! intero da stampare
INTEGER :: j ! variabile contatore
INTEGER, PARAMETER :: size=32
CHARACTER(LEN=size) :: num_in_bits ! rappresentazione binaria di num
!
PRINT*, " Introdurre un intero: "
READ(*,*) num
num_in_bits = " "
DO j=0,size-1
IF (BTEST(num,j)) THEN
num_in_bits(size-j:size-j) = "1"
ELSE
num_in_bits(size-j:size-j) = "0"
END IF
END DO
PRINT*, "La rappresentazione binaria di ", num, "e’: "
PRINT*, num_in_bits
END PROGRAM Integer_representation