SSWAP
Purpose
interchanges two vectors.
uses unrolled loops for increments equal to 1.
uses unrolled loops for increments equal to 1.
Further Details
jack dongarra, linpack, 3/11/78.
modified 12/3/93, array(1) declarations changed to array(*)
modified 12/3/93, array(1) declarations changed to array(*)