Description:
Exchange the values of two
single-character variables.
Invocation
CALL CHR_SWAP( CHAR1, CHAR2 )
Arguments
CHAR1 =
CHARACTER ∗
1 (Given and Returned)
The first character.
CHAR2 = CHARACTER
∗ 1
(Given and Returned)
The second character.
Copyright © 2018 East Asian Observatory