Ignore:
Timestamp:
May 1, 2009 4:51:14 PM (14 years ago)
Author:
srkline
Message:

When re-writing a data folder, USANS data is written with the last 3 columns as -dQv.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Analysis/WriteModelData_v40.ipf

    r497 r498  
    115115 
    116116// always asks for a file name 
    117 // - and right now, always expect 6-column data! 
     117// - and right now, always expect 6-column data, either SANS or USANS (re-writes -dQv) 
    118118Function fReWrite1DData(folderStr,delim,term) 
    119119        String folderStr,delim,term 
     
    125125        If(cmpstr(delim,"tab")==0) 
    126126                //tab-delimeted 
    127                 formatStr="%15.4g\t%15.4g\t%15.4g\t%15.4g\t%15.4g\t%15.4g" 
     127                formatStr="%15.8g\t%15.8g\t%15.8g\t%15.8g\t%15.8g\t%15.8g" 
    128128        else 
    129129                //use 3 spaces 
    130                 formatStr="%15.4g   %15.4g   %15.4g   %15.4g   %15.4g   %15.4g" 
     130                formatStr="%15.8g   %15.8g   %15.8g   %15.8g   %15.8g   %15.8g" 
    131131        Endif 
    132132        If(cmpstr(term,"CR")==0) 
     
    161161         
    162162        Duplicate/O qw qbar,sigQ,fs 
    163         sigQ = resw[p][0] 
    164         qbar = resw[p][1] 
    165         fs = resw[p][2] 
     163        if(dimsize(resW,1) > 4) 
     164                //it's USANS put -dQv back in the last 3 columns 
     165                NVAR/Z dQv = USANS_dQv 
     166                if(NVAR_Exists(dQv) == 0) 
     167                        Abort "It's USANS data, and I don't know what the slit height is." 
     168                endif 
     169                sigQ = -dQv 
     170                qbar = -dQv 
     171                fs = -dQv 
     172        else 
     173                //it's SANS 
     174                sigQ = resw[p][0] 
     175                qbar = resw[p][1] 
     176                fs = resw[p][2] 
     177        endif 
    166178         
    167179        if(dialog) 
Note: See TracChangeset for help on using the changeset viewer.