Changeset 2964 for branches

Timestamp:

10/07/10 16:41:52 (20 months ago)

Author:

pkwi

Message:

BUGFIX: For working properly in multi-mono configs, the comp needs to restore the neutron if scattering did not occur.

Files:

• branches/mcstas-1.x/lib/optics/Monochromator_pol.comp (modified) (1 diff)

branches/mcstas-1.x/lib/optics/Monochromator_pol.comp

@@ -181 +181 @@
       SCATTER;
     } /* End MC choice to reflect or transmit neutron */
-  } /* End intersect the crystal */
+  } else { /* End intersect the crystal */
+    RESTORE_NEUTRON(INDEX_CURRENT_COMP, x, y, z, vx, vy, vz, t, sx, sy, sz, p);
+  }
   
   %}