ZSWAP
ZSWAP interchanges two vectors.
jack dongarra, 3/11/78. modified 12/3/93, array(1) declarations changed to array(*)