Ignore:
Timestamp:
Jan 30, 2010 12:00:09 AM (13 years ago)
Author:
ajj
Message:

Implement XML writing in USANS reduction

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/USANS/LakeDesmearing_JB.ipf

    r570 r624  
    521521         
    522522        SVAR USANSFolder = root:Packages:NIST:USANS:Globals:gUSANSFolder         
    523         NVAR XMLO = $(USANSFolder+":Globals:gUseXMLOutput") 
    524523         
    525524        String termStr="\r\n" 
     
    567566        te=S_dsm 
    568567        if( (lo!=hi) && (lo<hi)) 
    569                 redimension/N=(hi-lo+1) tq,ti,te,dumWave                //lo to hi, inclusive 
     568                redimension/N=(hi-lo+1) tq,ti,te,res1,res2,res3         //lo to hi, inclusive 
    570569                tq=Q_dsm[p+lo] 
    571570                ti=I_dsm[p+lo] 
     
    591590        sprintf str1,"Chi^2 = %g   PowerLaw m = %4.2f   Iterations = %d",chiFinal,m,iter 
    592591        sprintf str2,"%d box smooth passes and %d smoothing spline passes",boxPass,splinePass 
    593          
    594         if (xmlo == 1) 
    595          
    596                  
    597          
    598         endif 
    599          
     592 
    600593         
    601594        //actually open the file 
     
    16331626 
    16341627        SVAR USANSFolder = root:Packages:NIST:USANS:Globals:gUSANSFolder         
     1628        NVAR useXMLOutput = root:Packages:NIST:gXML_Write 
    16351629 
    16361630        String saveStr 
     
    16381632        saveStr = CleanupName((curFile),0)              //the output filename 
    16391633        // 
    1640         WriteUSANSDesmeared(saveStr,0,0,1)                      //use the full set (lo=hi=0) and present a dialog 
     1634 
     1635        if (useXMLOutput == 1)   
     1636                WriteXMLUSANSDesmeared(saveStr,0,0,1) 
     1637        else 
     1638                WriteUSANSDesmeared(saveStr,0,0,1)                      //use the full set (lo=hi=0) and present a dialog 
     1639        endif 
    16411640         
    16421641        SetDataFolder root: 
Note: See TracChangeset for help on using the changeset viewer.