KIND

Syntax

result = KIND (x)

x	(Input) Can be of any intrinsic type.

Results

The result is a scalar of type default integer. The result has a value equal to the kind type parameter value of x.

Example

KIND (0.0) has the kind value of default real type.

KIND (12) has the kind value of default integer type.

The following shows another example:

INTEGER i ! a 4-byte integer

WRITE(*,*) KIND(i)

CALL INTEGER2( )

WRITE(*,*) KIND(i) ! still a 4-byte integer

! not affected by setting in subroutine

END

SUBROUTINE INTEGER2( )

!DEC$INTEGER:2

INTEGER j ! a 2-byte integer

WRITE(*,*) KIND(j)

END SUBROUTINE