Changeset 775 for sans/Dev/trunk/NCNR_User_Procedures/Analysis/Models/Models_2D/PeakGauss2D_v40.ipf

Timestamp:

Dec 8, 2010 4:12:18 PM (12 years ago)

Author:

srkline

Message:

Added 2D versions of sphere and GaussPeak? to the package. Probably never need them, but good for testing.

File:

• sans/Dev/trunk/NCNR_User_Procedures/Analysis/Models/Models_2D/PeakGauss2D_v40.ipf (modified) (1 diff)

sans/Dev/trunk/NCNR_User_Procedures/Analysis/Models/Models_2D/PeakGauss2D_v40.ipf

@@ -133 +133 @@
         Wave cw,zw,xw,yw
         
-        Variable npt=numpnts(yw)
-        Variable i,nthreads= ThreadProcessorCount
-        variable mt= ThreadGroupCreate(nthreads)
-
-//      Variable t1=StopMSTimer(-2)
-        
-        for(i=0;i<nthreads;i+=1)
-        //      Print (i*npt/nthreads),((i+1)*npt/nthreads-1)
-                ThreadStart mt,i,PeakGauss2D_T(cw,zw,xw,yw,(i*npt/nthreads),((i+1)*npt/nthreads-1))
-        endfor
-
-        do
-                variable tgs= ThreadGroupWait(mt,100)
-        while( tgs != 0 )
-
-        variable dummy= ThreadGroupRelease(mt)
-        
-//      Print "elapsed time = ",(StopMSTimer(-2) - t1)/1e6
+#if exists("PeakGauss2DX")                      //to hide the function if XOP not installed
+        MultiThread zw= PeakGauss2DX(cw,xw,yw)
+#else
+        MultiThread zw = I_PeakGauss2D(cw,xw,yw)
+#endif  
+        
+//      Variable npt=numpnts(yw)
+//      Variable i,nthreads= ThreadProcessorCount
+//      variable mt= ThreadGroupCreate(nthreads)
+//
+////    Variable t1=StopMSTimer(-2)
+//      
+//      for(i=0;i<nthreads;i+=1)
+//      //      Print (i*npt/nthreads),((i+1)*npt/nthreads-1)
+//              ThreadStart mt,i,PeakGauss2D_T(cw,zw,xw,yw,(i*npt/nthreads),((i+1)*npt/nthreads-1))
+//      endfor
+//
+//      do
+//              variable tgs= ThreadGroupWait(mt,100)
+//      while( tgs != 0 )
+//
+//      variable dummy= ThreadGroupRelease(mt)
+//      
+////    Print "elapsed time = ",(StopMSTimer(-2) - t1)/1e6
         
         return(0)