Changeset e1bdc7e in sasmodels

Timestamp:

Mar 21, 2016 4:23:39 AM (9 years ago)

Author:

Paul Kienzle <pkienzle@…>

Branches:

master, core_shell_microgels, costrafo411, magnetic_model, release_v0.94, release_v0.95, ticket-1257-vesicle-product, ticket_1156, ticket_1265_superball, ticket_822_more_unit_tests

Children:

7ff3cf3, 3a45c2c

Parents:

4a72d1a

Message:

add some debugging statements

File:

• sasmodels/kernel_iq.c (modified) (3 diffs)

sasmodels/kernel_iq.c

@@ -50 +50 @@
     )
 {
-printf("hello\n");
+printf("aliasing\n");
   // Storage for the current parameter values.  These will be updated as we
   // walk the polydispersity cube.
@@ -56 +56 @@
   double *pvec = (double *)(&local_pars);  // Alias named parameters with a vector
 
+printf("allocating\n");
   local int offset[NPARS-2];
 
-#if defined(USE_SHORTCUT_OPTIMIZATION)
-  if (pd_length[0] == 1) {
+#if 1 // defined(USE_SHORTCUT_OPTIMIZATION)
+printf("dereferencing %p as %d\n", problem, problem->pd_length[0]);
+  if (problem->pd_length[0] == 1) {
     // Shouldn't need to copy!!
+    printf("copying\n");
     for (int k=0; k < NPARS; k++) {
       pvec[k] = pars[k+2];  // skip scale and background
     }
+    printf("calculating\n");
 
     #ifdef USE_OPENMP
@@ -69 +73 @@
     #endif
     for (int i=0; i < nq; i++) {
-    {
       const double scattering = CALL_IQ(q, i, local_pars);
       result[i] += pars[0]*scattering + pars[1];
     }
+    printf("returning\n");
     return;
   }
+  printf("falling through\n");
 #endif