Ignore:
Timestamp:
Apr 6, 2007 4:20:53 PM (15 years ago)
Author:
srkline
Message:

Final set of first pass changes to reduction code. Next is to throuroughly test before heading to the second pass of non-obvious function calls and documentation of the "required" stubs for a particular file type.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/SANSReduction/branches/kline_29MAR07/Put in User Procedures/SANS_Reduction_v5.00/PatchFiles.ipf

    r72 r75  
    412412        Wave/T textVal 
    413413         
    414         Variable refnum,num,start 
     414        Variable refnum,num 
    415415        String textstr 
    416416         
    417417        //change the sample label ? 
    418418        if(change[0]) 
    419                 RewriteTextToHeader(fname,textVal[0],98) 
     419                WriteSamLabelToHeader(fname,textVal[0]) 
    420420        Endif 
    421421         
     
    423423        if(change[6]) 
    424424                num =str2num(textVal[6]) 
    425                 RewriteIntegerToHeader(fname,num,31) 
     425                WriteCountTimeToHeader(fname,num) 
    426426        Endif 
    427427         
    428428        //ReWriteReal() takes care of open/close on its own 
    429         if(change[1]) 
     429        if(change[1])           //sample transmission 
    430430                num = str2num(textVal[1]) 
    431                 start = 158      //transmission 
    432                 ReWriteReal(fname,num,start) 
    433         Endif 
    434         if(change[2]) 
     431                WriteTransmissionToHeader(fname,num) 
     432        Endif 
     433        if(change[2])           //sample thickness 
    435434                num = str2num(textVal[2]) 
    436                 start = 162      //thickness 
    437                 ReWriteReal(fname,num,start) 
    438         Endif 
    439         if(change[3]) 
     435                WriteThicknessToHeader(fname,num) 
     436        Endif 
     437        if(change[3])           //pixel X 
    440438                num = str2num(textVal[3]) 
    441                 start = 252      //pixel x 
    442                 ReWriteReal(fname,num,start) 
    443         Endif 
    444         if(change[4]) 
     439                WriteBeamCenterXToHeader(fname,num) 
     440        Endif 
     441        if(change[4])           // pixel Y 
    445442                num = str2num(textVal[4]) 
    446                 start = 256      //pixel y 
    447                 ReWriteReal(fname,num,start) 
    448         Endif 
    449         if(change[5]) 
     443                WriteBeamCenterYToHeader(fname,num) 
     444        Endif 
     445        if(change[5])           //attenuator number 
    450446                num = str2num(textVal[5]) 
    451                 start = 51      //atten 
    452                 ReWriteReal(fname,num,start) 
     447                WriteAttenNumberToHeader(fname,num) 
    453448        Endif 
    454449        //[6] was the counting time, integer written above 
    455         if(change[7]) 
    456                 num = str2num(textVal[7]) 
    457                 start = 39      //monitor count 
    458                 ReWriteReal(fname,num,start) 
    459         Endif 
    460         if(change[8]) 
     450        if(change[7])    //monitor count 
     451                num = str2num(textVal[7])  
     452                WriteMonitorCountToHeader(fname,num) 
     453        Endif 
     454        if(change[8])     //total detector count 
    461455                num = str2num(textVal[8]) 
    462                 start = 47      //total detector count 
    463                 ReWriteReal(fname,num,start) 
    464         Endif 
    465         if(change[9]) 
     456                WriteDetectorCountToHeader(fname,num) 
     457        Endif 
     458        if(change[9])      //trans det count 
    466459                num = str2num(textVal[9]) 
    467                 start = 388      //trans det count 
    468                 ReWriteReal(fname,num,start) 
    469         Endif 
    470         if(change[10]) 
     460                WriteTransDetCountToHeader(fname,num) 
     461        Endif 
     462        if(change[10])      //wavelength 
    471463                num = str2num(textVal[10]) 
    472                 start = 292      //wavelength 
    473                 ReWriteReal(fname,num,start) 
     464                WriteWavelengthToHeader(fname,num) 
    474465        Endif 
    475466        /// 
    476         if(change[11]) 
     467        if(change[11])      //wavelength spread 
    477468                num = str2num(textVal[11]) 
    478                 start = 296      //wavelength spread 
    479                 ReWriteReal(fname,num,start) 
    480         Endif 
    481         if(change[12]) 
     469                WriteWavelengthDistrToHeader(fname,num) 
     470        Endif 
     471        if(change[12])      //temperature 
    482472                num = str2num(textVal[12]) 
    483                 start = 186      //temperture 
    484                 ReWriteReal(fname,num,start) 
    485         Endif 
    486         if(change[13]) 
     473                WriteTemperatureToHeader(fname,num) 
     474        Endif 
     475        if(change[13])      //magnetic field 
    487476                num = str2num(textVal[13]) 
    488                 start = 190      //magnetic field 
    489                 ReWriteReal(fname,num,start) 
    490         Endif 
    491         if(change[14]) 
     477                WriteMagnFieldToHeader(fname,num) 
     478        Endif 
     479        if(change[14])      //source aperture 
    492480                num = str2num(textVal[14]) 
    493                 start = 280      //source aperture 
    494                 ReWriteReal(fname,num,start) 
    495         Endif 
    496         if(change[15]) 
     481                WriteSourceApDiamToHeader(fname,num) 
     482        Endif 
     483        if(change[15])      //sample aperture 
    497484                num = str2num(textVal[15]) 
    498                 start = 284      //sample aperture 
    499                 ReWriteReal(fname,num,start) 
     485                WriteSampleApDiamToHeader(fname,num) 
    500486        Endif 
    501487        /// 
    502         if(change[16]) 
     488        if(change[16])      //source-sam dist 
    503489                num = str2num(textVal[16]) 
    504                 start = 288      //source-sam dist 
    505                 ReWriteReal(fname,num,start) 
    506         Endif 
    507         if(change[17]) 
     490                WriteSrcToSamDistToHeader(fname,num) 
     491        Endif 
     492        if(change[17])      //det offset 
    508493                num = str2num(textVal[17]) 
    509                 start = 264      //det offset 
    510                 ReWriteReal(fname,num,start) 
    511         Endif 
    512         if(change[18]) 
     494                WriteDetectorOffsetToHeader(fname,num) 
     495        Endif 
     496        if(change[18])      //beamstop diam 
    513497                num = str2num(textVal[18]) 
    514                 start = 272      //beamstop diam 
    515                 ReWriteReal(fname,num,start) 
    516         Endif 
    517         if(change[19]) 
     498                WriteBeamStopDiamToHeader(fname,num) 
     499        Endif 
     500        if(change[19])     //SDD 
    518501                num = str2num(textVal[19]) 
    519                 start = 260      //SDD 
    520                 ReWriteReal(fname,num,start) 
    521         Endif 
    522         //if ReWriteReal() was the last thing called, the file is closed already. just exit      
     502                WriteSDDToHeader(fname,num) 
     503        Endif 
    523504        Return(0) 
    524505End 
Note: See TracChangeset for help on using the changeset viewer.