home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 1 / FishNMoreVol1.bin / more / code_examples / librar / lswap.c < prev    next >
Encoding:
Text File  |  1989-02-09  |  384 b   |  16 lines
  1. /*--------------------------------------*/
  2. /*                    */
  3. /*              LSWAP(X,X)        */
  4. /*                    */
  5. /* Switches the values of two long    */
  6. /* integers.                */
  7. /*                    */
  8. /*--------------------------------------*/
  9. void lswap(a,b)
  10. long a[],b[];
  11. {
  12.     long h;
  13.     h=a[0];
  14.     a[0]=b[0];
  15.     b[0]=h;
  16. }