FTS1_BSWAP - Swaps adjacent bytes in an array of bytes

Description:

This swaps adjacent pairs of bytes in an array in situ. This is VAX specific.

Invocation:

CALL FTS1_BSWAP( NBYTE, BYTES, STATUS )

Arguments:

NBYTE = INTEGER (Returned)

Number of bytes. An SAI__ERROR will be returned if this is not an even number.

BYTES( NBYTE ) = BYTE (Given and Returned)

The 16-bit words whose bytes are to be swapped.

STATUS = INTEGER (Given and Returned)

The global status.