Ignore:
Timestamp:
Apr 15, 2016 4:31:14 PM (6 years ago)
Author:
srkline
Message:

removed the doubled "entry" field from the VSANS file load.

appears now to work fine with R/W routines and with VCALC.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_WorkFolderUtils.ipf

    r987 r992  
    1111// - adding RAW data to a workfile 
    1212// -- **this conversion applies the detector corrections** 
     13// -- Raw_to_work(newType) IS THE MAJOR ROUTINE TO APPLY DETECTOR CORRECTIONS 
     14// 
    1315// 
    1416// - copying workfiles to another folder 
     
    8385                //   DAS_logs 
    8486                //   top-level copies of data (duplicate links) 
    85                 KillDataFolder/Z $(toDF+":entry:entry:DAS_logs") 
    86                 KillDataFolder/Z $(toDF+":entry:entry:data") 
    87                 KillDataFolder/Z $(toDF+":entry:entry:data_B") 
    88                 KillDataFolder/Z $(toDF+":entry:entry:data_ML") 
    89                 KillDataFolder/Z $(toDF+":entry:entry:data_MR") 
    90                 KillDataFolder/Z $(toDF+":entry:entry:data_MT") 
    91                 KillDataFolder/Z $(toDF+":entry:entry:data_MB") 
    92                 KillDataFolder/Z $(toDF+":entry:entry:data_FL") 
    93                 KillDataFolder/Z $(toDF+":entry:entry:data_FR") 
    94                 KillDataFolder/Z $(toDF+":entry:entry:data_FT") 
    95                 KillDataFolder/Z $(toDF+":entry:entry:data_FB") 
     87                KillDataFolder/Z $(toDF+":entry:DAS_logs") 
     88                KillDataFolder/Z $(toDF+":entry:data") 
     89                KillDataFolder/Z $(toDF+":entry:data_B") 
     90                KillDataFolder/Z $(toDF+":entry:data_ML") 
     91                KillDataFolder/Z $(toDF+":entry:data_MR") 
     92                KillDataFolder/Z $(toDF+":entry:data_MT") 
     93                KillDataFolder/Z $(toDF+":entry:data_MB") 
     94                KillDataFolder/Z $(toDF+":entry:data_FL") 
     95                KillDataFolder/Z $(toDF+":entry:data_FR") 
     96                KillDataFolder/Z $(toDF+":entry:data_FT") 
     97                KillDataFolder/Z $(toDF+":entry:data_FB") 
    9698 
    9799                return(0) 
     
    101103                 
    102104                // everything on the top level 
    103                 V_DuplicateDataFolder($(fromDF+":entry:entry"),fromStr,toStr,0,"",0)    //no recursion here 
     105                V_DuplicateDataFolder($(fromDF+":entry"),fromStr,toStr,0,"",0)  //no recursion here 
    104106                // control 
    105                 V_DuplicateDataFolder($(fromDF+":entry:entry:control"),fromStr,toStr,0,"",1)    //yes recursion here 
     107                V_DuplicateDataFolder($(fromDF+":entry:control"),fromStr,toStr,0,"",1)  //yes recursion here 
    106108                // instrument 
    107                 V_DuplicateDataFolder($(fromDF+":entry:entry:instrument"),fromStr,toStr,0,"",1) //yes recursion here 
     109                V_DuplicateDataFolder($(fromDF+":entry:instrument"),fromStr,toStr,0,"",1)       //yes recursion here 
    108110                // reduction 
    109                 V_DuplicateDataFolder($(fromDF+":entry:entry:reduction"),fromStr,toStr,0,"",1)  //yes recursion here 
     111                V_DuplicateDataFolder($(fromDF+":entry:reduction"),fromStr,toStr,0,"",1)        //yes recursion here 
    110112                // sample 
    111                 V_DuplicateDataFolder($(fromDF+":entry:entry:sample"),fromStr,toStr,0,"",1)     //yes recursion here 
     113                V_DuplicateDataFolder($(fromDF+":entry:sample"),fromStr,toStr,0,"",1)   //yes recursion here 
    112114 
    113115        endif    
     
    382384        // TODO 
    383385        // -- currently only redimensioning the data and linear_data_error - What else??? 
    384         // -- ?? some of this is done at load time for RAW data 
     386        // -- ?? some of this is done at load time for RAW data. shouldn't be an issue to re-do the redimension 
    385387        for(ii=0;ii<ItemsInList(ksDetectorListAll);ii+=1) 
    386388                detStr = StringFromList(ii, ksDetectorListAll, ";") 
     
    469471                        Wave w = V_getDetectorDataW(fname,detStr) 
    470472                        Wave w_err = V_getDetectorDataErrW(fname,detStr) 
    471                         Wave w_dt = V_getDetector_deadtime(fname,detStr) 
     473//                      Wave w_dt = V_getDetector_deadtime(fname,detStr) 
    472474//                      SolidAngleCorrection(fill this in) 
    473475                         
     
    490492                        Wave w = V_getDetectorDataW(fname,detStr) 
    491493                        Wave w_err = V_getDetectorDataErrW(fname,detStr) 
    492                         Wave w_dt = V_getDetector_deadtime(fname,detStr) 
    493 //                      DeadTimeCorrectionTubes(w,w_err,w_dt,ctTime) 
    494                                 //deadtime corrections 
    495 //      itim = integersread[2] 
    496 //      cntrate = sum(data,-inf,inf)/itim               //use sum of detector counts rather than scaler value 
    497 //      //TODO - do correct dead time correction for tubes 
    498 //      deadtime = 1//DetectorDeadtime(textread[3],textread[9],dateAndTimeStr=textRead[1],dtime=realsRead[48])  //pick the correct deadtime 
    499 //      dscale = 1/(1-deadTime*cntrate) 
    500 //       
    501          
    502 // dead time correction 
    503 //      data *= dscale          //deadtime correction for everyone else, including NCNR 
    504 //      data_err *= dscale 
    505  
     494                         
     495                        if(cmpstr(detStr,"B") == 0) 
     496                                Variable b_dt = V_getDetector_deadtime_B(fname,detStr) 
     497                                // do the correction for the back panel 
     498                                 
     499                                //      itim = integersread[2] 
     500                                //      cntrate = sum(data,-inf,inf)/itim               //use sum of detector counts rather than scaler value 
     501                                //      //TODO - do correct dead time correction for tubes 
     502                                //      deadtime = 1//DetectorDeadtime(textread[3],textread[9],dateAndTimeStr=textRead[1],dtime=realsRead[48])  //pick the correct deadtime 
     503                                //      dscale = 1/(1-deadTime*cntrate) 
     504                                //       
     505                                         
     506                                // dead time correction 
     507                                //      data *= dscale          //deadtime correction for everyone else, including NCNR 
     508                                //      data_err *= dscale 
     509                                 
     510                                 
     511                        else 
     512                                Wave w_dt = V_getDetector_deadtime(fname,detStr) 
     513                                // do the corrections for 8 tube panels 
     514                                //                      DeadTimeCorrectionTubes(w,w_err,w_dt,ctTime) 
     515 
     516                        endif 
    506517                endfor 
     518                 
    507519        else 
    508520                Print "Dead Time correction not done" 
    509521        endif    
     522         
    510523         
    511524        // (5) angle-dependent tube shadowing 
     
    525538                        Wave w = V_getDetectorDataW(fname,detStr) 
    526539                        Wave w_err = V_getDetectorDataErrW(fname,detStr) 
    527                         Wave w_dt = V_getDetector_deadtime(fname,detStr) 
    528540//                      TransmissionCorrection(fill this in) 
    529541                         
     
    559571                // save the true monitor counts? save the scaling factor? 
    560572                String path = "entry:instrument:beam_monitor_norm:saved_count" 
    561                 Wave/Z savW = $("root:Packages:NIST:VSANS:"+fname+":entry:"+path) 
     573                Wave/Z savW = $("root:Packages:NIST:VSANS:"+fname+":"+path) 
    562574                savW[0] = scale 
    563575        endfor 
     
    768780        String/G $(destPath + ":fileList") = oldList + newfile 
    769781         
    770         //reset the current displaytype to "newtype" 
    771         String/G root:myGlobals:gDataDisplayType=newType 
     782        //reset the current display type to "newtype" 
     783        SVAR gCurDispType = root:Packages:NIST:VSANS:Globals:gCurDispType 
     784        gCurDispType = newType 
    772785         
    773786        //return to root folder (redundant) 
Note: See TracChangeset for help on using the changeset viewer.