Inquiry Intrinsic Function (Generic): Returns the kind parameter of the argument.
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.
See Also
SELECTED_INT_KIND, SELECTED_REAL_KIND, CMPLX, INT, REAL, LOGICAL, CHAR, Intrinsic Data Types, Argument Keywords in Intrinsic Procedures
Examples
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