Changes in sasmodels/models/lib/gauss150.c [994d77f:99b84ec] in sasmodels

File:

• sasmodels/models/lib/gauss150.c (modified) (3 diffs)

sasmodels/models/lib/gauss150.c

@@ -1 @@
-/*
- *  GaussWeights.c
- *  SANSAnalysis
- *
- *  Created by Andrew Jackson on 4/23/07.
- *  Copyright 2007 __MyCompanyName__. All rights reserved.
- *
- */
+// Created by Andrew Jackson on 4/23/07
 
-// Gaussians
-constant double Gauss150Z[150]={
+ #ifdef GAUSS_N
+ # undef GAUSS_N
+ # undef GAUSS_Z
+ # undef GAUSS_W
+ #endif
+ #define GAUSS_N 150
+ #define GAUSS_Z Gauss150Z
+ #define GAUSS_W Gauss150Wt
+
+
+// Note: using array size 152 rather than 150 so that it is a multiple of 4.
+// Some OpenCL devices prefer that vectors start and end on nice boundaries.
+constant double Gauss150Z[152]={
         -0.9998723404457334,
         -0.9993274305065947,
@@ -159 +163 @@
         0.9983473449340834,
         0.9993274305065947,
-        0.9998723404457334
+        0.9998723404457334,
+        0., // zero padding is ignored
+        0.  // zero padding is ignored
 };
 
-constant double Gauss150Wt[150]={
+constant double Gauss150Wt[152]={
         0.0003276086705538,
         0.0007624720924706,
@@ -312 +318 @@
         0.0011976474864367,
         0.0007624720924706,
-        0.0003276086705538
+        0.0003276086705538,
+        0., // zero padding is ignored
+        0.  // zero padding is ignored
 };