Changeset 575 for sans


Ignore:
Timestamp:
Oct 16, 2009 4:34:56 PM (13 years ago)
Author:
srkline
Message:

Added ANSTO files to the repository for SANS reduction

Changed #include files for each facility to have a #define SYMBOL at the top to allow small facility-specific changes in the main body of the code that are controlled with compiler directives

Location:
sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS
Files:
4 added
1 deleted
5 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/HFIR_Includes_v520.ipf

    r572 r575  
    22#pragma version=5.0 
    33#pragma IgorVersion=6.1 
     4 
     5 
     6#define HFIR 
     7 
    48 
    59//************* 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/Includes_Facility.ipf

    r570 r575  
    22#pragma version=5.0 
    33#pragma IgorVersion=6.1 
     4 
     5 
     6// be sure to add a definition for your facility so that 
     7// minor chnages to the core code can be added through compiler directives 
     8//#define SYMBOL 
     9 
     10 
    411 
    512//************* 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/Includes_v520_ILL.ipf

    r573 r575  
    22#pragma version=5.0 
    33#pragma IgorVersion=6.1 
     4 
     5 
     6#define ILL_D22 
     7 
    48 
    59//************* 
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/ProDiv.ipf

    r571 r575  
    7575                return(1) 
    7676        endif 
     77 
     78#ifdef QUOKKA    
     79        //corrects edge rows and columns by copy data from adjacent column 
     80        DoAlert 1,"Do edge correction for Quokka detector?" 
     81        if(V_flag==1) 
     82                DoEdgeCorrection(ctrType) 
     83                DoEdgeCorrection(offType)                
     84        endif 
     85#endif 
    7786         
    7887        //show the ctrType 
     
    367376                        ConvertFolderToLinearScale("COR") 
    368377                         
     378#ifdef QUOKKA    
     379                        //corrects edge rows and columns by copy data from adjacent column 
     380                        DoAlert 1,"Do edge correction for Quokka detector?" 
     381                        if(V_flag==1) 
     382                                DoEdgeCorrection(ctrType) 
     383                                DoEdgeCorrection(offType)                
     384                        endif 
     385#endif 
    369386                         
    370387                // replace the patch 
     
    468485        return 0 
    469486End 
    470  
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/ProtocolAsPanel.ipf

    r570 r575  
    18651865                String textStr = "root:Packages:NIST:"+activeType+":textread" 
    18661866                Wave/T textPath = $textStr 
     1867                String tempFilename = samStr 
    18671868                If(WaveExists(textPath) == 1) 
     1869#ifdef QUOKKA 
     1870                        newFileName = ReplaceString(".nx.hdf", tempFilename, "") 
     1871#else 
    18681872                        newFileName = UpperStr(GetNameFromHeader(textPath[0])) 
     1873#endif 
    18691874                else 
    18701875                        newFileName = ""                        //if the header is missing? 
Note: See TracChangeset for help on using the changeset viewer.