Changeset 137 for sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00

Timestamp:

Jul 26, 2007 4:41:07 PM (16 years ago)

Author:

srkline

Message:

Updated StackedDiscs? model to Make double precision waves for XOP

File:

• sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/StackedDiscs.ipf (modified) (2 diffs)

sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/StackedDiscs.ipf

@@ -24 +24 @@
         Prompt qmax "Enter maximum q-value (^-1) for model: "
         
-        make/o/n=(num) xwave_scyl,ywave_scyl
+        make/o/D/n=(num) xwave_scyl,ywave_scyl
         xwave_scyl =  alog(log(qmin) + x*((log(qmax)-log(qmin))/num))
-        make/o coef_scyl = {0.01,3000.,10.,15.,4.0e-6,-4.0e-7,5.0e-6,1,0,1.0e-3}
+        make/o/D coef_scyl = {0.01,3000.,10.,15.,4.0e-6,-4.0e-7,5.0e-6,1,0,1.0e-3}
         make/o/t parameters_scyl = {"scale","Disc Radius (A)","Core Thickness (A)","Layer Thickness (A)","Core SLD (A^-2)","Layer SLD (A^-2)","Solvent  SLD(A^-2)","# of Stacking","GSD of d-Spacing","incoh. bkg (cm^-1)"}
         Edit parameters_scyl,coef_scyl
@@ -55 +55 @@
         
         // Setup parameter table for model function
-        make/o smear_coef_scyl = {0.01,3000.,10.,15.,4.0e-6,-4.0e-7,5.0e-6,1,0,1.0e-3}
+        make/o/D smear_coef_scyl = {0.01,3000.,10.,15.,4.0e-6,-4.0e-7,5.0e-6,1,0,1.0e-3}
         make/o/t smear_parameters_scyl = {"scale","Disc Radius (A)","Core Thickness (A)","Layer Thickness (A)","Core SLD (A^-2)","Layer SLD (A^-2)","Solvent SLD (A^-2)","# of Stacking","GSD of d-Spacing","incoh. bkg (cm^-1)"}
         Edit smear_parameters_scyl,smear_coef_scyl