Changeset 1484 for trunk/fsource/powsubs/epsvoigt.for

Timestamp:

Sep 3, 2014 10:34:01 AM (8 years ago)

Author:

vondreele

Message:

change lower limit of LGmix to 0 from 0.1 - recompile Win-32 & Win-64 fortran sources
fix ellipseSizeDeriv - didn't do it correctly before
fix mustrain & size fxns & derivatives for CW (minor) & TOF major; all checked against numerical derivatives for both lorentzian & gaussian contributions as well as mixing coeff.

File:

• trunk/fsource/powsubs/epsvoigt.for (modified) (1 diff)

trunk/fsource/powsubs/epsvoigt.for

@@ -49 +49 @@
 !CODE:
 
-      SQSGT = MAX(SQRT(SIG),0.01)
-      GAM = MAX(GAM,0.1)
+      SQSGT = MAX(SQRT(SIG),0.00001)
+      GAM = MAX(GAM,0.00001)
       FWHG = STOFW*SQSGT
       PGL = FWHG**5