Changes in sasmodels/kernel_header.c [1e7b0db0:b7e8b94] in sasmodels

File:

• sasmodels/kernel_header.c (modified) (1 diff)

sasmodels/kernel_header.c

@@ -146 +146 @@
 inline double square(double x) { return x*x; }
 inline double cube(double x) { return x*x*x; }
-inline double sas_sinx_x(double x) { return x==0 ? 1.0 : sin(x)/x; }
+inline double sinc(double x) { return x==0 ? 1.0 : sin(x)/x; }
 
 #if 1
+//think cos(theta) should be sin(theta) in new coords, RKH 11Jan2017
 #define ORIENT_SYMMETRIC(qx, qy, theta, phi, q, sn, cn) do { \
     SINCOS(phi*M_PI_180, sn, cn); \
     q = sqrt(qx*qx + qy*qy); \
-    cn  = (q==0. ? 1.0 : (cn*qx + sn*qy)/q * cos(theta*M_PI_180));  \
+    cn  = (q==0. ? 1.0 : (cn*qx + sn*qy)/q * sin(theta*M_PI_180));  \
     sn = sqrt(1 - cn*cn); \
     } while (0)