KIND

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.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

See Also: SELECTED_INT_KIND, SELECTED_REAL_KIND, CMPLX, INT, REAL, LOGICAL, CHAR, Intrinsic Data Types

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