radix(x) returns the base of the model representing the entity x.

radix(x)

x

Fortran 95 and later

Inquiry function

result = radix(x)

integer

real

The return value is a scalar of type integer and of the default integer kind.

program test_radix print *, "The radix for the default integer kind is", radix(0) print *, "The radix for the default real kind is", radix(0.0) end program test_radix

scale