SHORT

Portability Function: Converts an INTEGER(4) argument to INTEGER(2) type.

Module

USE IFPORT

Syntax

result = SHORT (int4)

int4

(Input) INTEGER(4). Value to be converted.

Results

The result type is INTEGER(2). The result is equal to the lower 16 bits of int4. If the int4 value is greater than 32,767, the converted INTEGER(2) value is not equal to the original.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

Example

USE IFPORT

INTEGER(4) this_one

INTEGER(2) that_one

READ(*,*) this_one

THAT_ONE = SHORT(THIS_ONE)

WRITE(*,10) THIS_ONE, THAT_ONE

10 FORMAT (X," Long integer: ", I16, " Short integer: ", I16)

END

See Also