Next: SELECTED_REAL_KIND, Previous: SECNDS, Up: Intrinsic Procedures
SELECTED_INT_KIND
— Choose integer kindSELECTED_INT_KIND(I)
return the kind value of the smallest integer
type that can represent all values ranging from -10^I (exclusive)
to 10^I (exclusive). If there is no integer kind that accomodates
this range, SELECTED_INT_KIND
returns -1.
J = SELECTED_INT_KIND(I)
|
I | shall be a scalar and of type INTEGER .
|
program large_integers integer,parameter :: k5 = selected_int_kind(5) integer,parameter :: k15 = selected_int_kind(15) integer(kind=k5) :: i5 integer(kind=k15) :: i15 print *, huge(i5), huge(i15) ! The following inequalities are always true print *, huge(i5) >= 10_k5**5-1 print *, huge(i15) >= 10_k15**15-1 end program large_integers