Il numero di kind nel fortran ci permette di avere informazioni sulla precisione con cui il nostro computer riesce a trattare i numeri. La sua stampa quindi ci permette di sapere con quante cifre il pc rappresenta i numeri.
CODICE SORGENTE DEL PROGRAMMA IN FORTRAN 90
! stampa_kind.f90
! stampa numeri di kind
!
program stampa_kind
integer :: p,r
print *,”single precision: “,kind(1.0E0)
print *,”double precision: “,kind(1.0D0)
do
print *,”p r”
read *,p,r
if (p==0) then
if (r==0) then; stop; end if
print *,selected_int_kind(r)
else
print *,selected_real_kind(p,r)
end if
end do
end program stampa_kind