# SHORT

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

## Module

USE IFPORT

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.

## 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

Parent topic: S

## See Also

INT
Type Declarations