IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 38714


Ignore:
Timestamp:
Sep 7, 2015, 3:44:36 PM (11 years ago)
Author:
eugene
Message:

add isortfour

Location:
branches/eam_branches/ipp-20150625/Ohana/src/libohana
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/eam_branches/ipp-20150625/Ohana/src/libohana/include/ohana_sort.h

    r38580 r38714  
    8080void dsortfour (double *X, double *Y, double *Z, double *W, int N);
    8181void fsortfour (float *X, float *Y, float *Z, float *W, int N);
     82void isortfour (int *X, int *Y, int *Z, int *W, int N);
    8283
    8384#endif
  • branches/eam_branches/ipp-20150625/Ohana/src/libohana/src/sorts.c

    r38580 r38714  
    167167}
    168168
     169void isortfour (int *X, int *Y, int *Z, int *W, int N) {
     170
     171# define SWAPFUNC(A,B){ int tmp; \
     172  tmp = X[A]; X[A] = X[B]; X[B] = tmp; \
     173  tmp = Y[A]; Y[A] = Y[B]; Y[B] = tmp; \
     174  tmp = Z[A]; Z[A] = Z[B]; Z[B] = tmp; \
     175  tmp = W[A]; W[A] = W[B]; W[B] = tmp; \
     176}
     177# define COMPARE(A,B)(X[A] < X[B])
     178
     179  OHANA_SORT (N, COMPARE, SWAPFUNC);
     180
     181# undef SWAPFUNC
     182# undef COMPARE
     183
     184}
     185
Note: See TracChangeset for help on using the changeset viewer.