Ignore:
Timestamp:
Mar 30, 2007 5:26:06 PM (16 years ago)
Author:
srkline
Message:

more transferring of functions to NCNR_* files.

File:
1 edited

Legend:

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

    r48 r72  
    208208        String fname,sname 
    209209         
    210         String textstr,temp,lbl,date_time,suffix 
    211         Variable ctime,lambda,sdd,detcnt,cntrate,refNum,trans,thick,xcenter,ycenter,numatten 
    212         Variable lastPoint, beamstop,dum 
     210//      String textstr,temp,lbl,date_time,suffix 
     211//      Variable ,lambda,sdd,,refNum,trans,thick,xcenter,ycenter,numatten 
     212//      Variable lastPoint, beamstop,dum 
     213        Variable lastPoint,ctime,detcnt,cntrate 
    213214 
    214215        Wave/T GFilenames = $"root:myGlobals:CatVSHeaderInfo:Filenames" 
     
    234235         
    235236        lastPoint = numpnts(GLambda) 
    236          
    237         Open/R refNum as fname 
    238          
     237                 
     238        //filename 
    239239        InsertPoints lastPoint,1,GFilenames 
    240240        GFilenames[lastPoint]=sname 
    241241         
     242        //read the file alphanumeric suffix 
     243        InsertPoints lastPoint,1,GSuffix 
     244        GSuffix[lastPoint]=getSuffix(fname) 
     245 
     246        //read the counting time (integer) 
     247        InsertPoints lastPoint,1,GCntTime 
     248        ctime = getCountTime(fname) 
     249        GCntTime[lastPoint]=ctime 
     250         
    242251        //read the file creation date 
    243         FSetPos refNum,19 
    244         FReadLine/N=4 refNum,suffix 
    245         InsertPoints lastPoint,1,GSuffix 
    246         GSuffix[lastPoint]=suffix 
    247  
    248         //read the counting time (integer) 
    249         FSetPos refNum,31 
    250         FBinRead/F=3/B=3 refNum, ctime 
    251         InsertPoints lastPoint,1,GCntTime 
    252         GCntTime[lastPoint]=ctime 
    253          
    254         //read the file creation date 
    255         FSetPos refNum,55 
    256         FReadLine/N=20 refNum,date_time 
    257252        InsertPoints lastPoint,1,GDateTime 
    258         GDateTime[lastPoint]=date_time 
     253        GDateTime[lastPoint]=getFileCreationDate(fname) 
    259254 
    260255        // read the sample.label text field 
    261         FSetPos refNum,98               //will start reading at byte 99 
    262         FReadLine/N=60 refNum,lbl 
    263256        InsertPoints lastPoint,1,GLabels 
    264         GLabels[lastPoint]=lbl 
    265          
    266         Close refNum 
    267          
    268         //read the reals with GBLoadWave 
    269         String GBLoadStr="GBLoadWave/O/N=tempGBwave/T={2,2}/J=2/W=1/Q" 
    270         String strToExecute 
    271          
    272         //detector count 
    273         strToExecute = GBLoadStr + "/S=47/U=1" + "\"" + fname + "\"" 
    274         Execute strToExecute 
    275         Wave w=$"tempGBWave0" 
    276         detcnt = w[0] 
     257        GLabels[lastPoint]=getSampleLabel(fname) 
     258                 
     259        //read the reals 
     260        //detector count and (derived) count rate 
     261        detcnt = getDetCount(fname) 
    277262        cntrate = detcnt/ctime 
    278263        InsertPoints lastPoint,1,GTotCnts 
     
    282267         
    283268        //Attenuators 
    284         strToExecute = GBLoadStr + "/S=51/U=1" + "\"" + fname + "\"" 
    285         Execute strToExecute 
    286         numatten = w[0] 
    287269        InsertPoints lastPoint,1,GNumAttens 
    288         GNumAttens[lastPoint]=numatten 
     270        GNumAttens[lastPoint]=getAttenNumber(fname) 
    289271         
    290272        //Transmission 
    291         strToExecute = GBLoadStr + "/S=158/U=1" + "\"" + fname + "\"" 
    292         Execute strToExecute 
    293         trans = w[0] 
    294273        InsertPoints lastPoint,1,GTransmission 
    295         GTransmission[lastPoint]=trans 
     274        GTransmission[lastPoint]=getSampleTrans(fname) 
    296275         
    297276        //Thickness 
    298         strToExecute = GBLoadStr + "/S=162/U=1" + "\"" + fname + "\"" 
    299         Execute strToExecute 
    300         thick = w[0] 
    301277        InsertPoints lastPoint,1,GThickness 
    302         GThickness[lastPoint]=thick 
    303  
    304         //XCenter 
    305         strToExecute = GBLoadStr + "/S=252/U=1" + "\"" + fname + "\"" 
    306         Execute strToExecute 
    307         xcenter = w[0] 
     278        GThickness[lastPoint]=getSampleThickness(fname) 
     279 
     280        //XCenter of beam on detector 
    308281        InsertPoints lastPoint,1,GXCenter 
    309         GXCenter[lastPoint]=xCenter 
     282        GXCenter[lastPoint]=getBeamXPos(fname) 
    310283 
    311284        //YCenter 
    312         strToExecute = GBLoadStr + "/S=256/U=1" + "\"" + fname + "\"" 
    313         Execute strToExecute 
    314         ycenter = w[0] 
    315285        InsertPoints lastPoint,1,GYCenter 
    316         GYCenter[lastPoint]=ycenter 
     286        GYCenter[lastPoint]=getBeamYPos(fname) 
    317287 
    318288        //SDD 
    319         strToExecute = GBLoadStr + "/S=260/U=1" + "\"" + fname + "\"" 
    320         Execute strToExecute 
    321         sdd = w[0] 
    322289        InsertPoints lastPoint,1,GSDD 
    323         GSDD[lastPoint]=sdd 
     290        GSDD[lastPoint]=getSDD(fname) 
    324291         
    325292        //wavelength 
    326         strToExecute = GBLoadStr + "/S=292/U=1" + "\"" + fname + "\"" 
    327         Execute strToExecute 
    328         lambda = w[0] 
    329293        InsertPoints lastPoint,1,GLambda 
    330         GLambda[lastPoint]=lambda 
     294        GLambda[lastPoint]=getWavelength(fname) 
    331295         
    332296        //Rotation Angle 
    333         strToExecute = GBLoadStr + "/S=170/U=1" + "\"" + fname + "\"" 
    334         Execute strToExecute 
    335         dum = w[0] 
    336297        InsertPoints lastPoint,1,GRot 
    337         GRot[lastPoint]=dum 
     298        GRot[lastPoint]=getSampleRotationAngle(fname) 
    338299         
    339300        //Sample Temperature 
    340         strToExecute = GBLoadStr + "/S=186/U=1" + "\"" + fname + "\"" 
    341         Execute strToExecute 
    342         dum = w[0] 
    343301        InsertPoints lastPoint,1,GTemp 
    344         GTemp[lastPoint]=dum 
     302        GTemp[lastPoint]=getTemperature(fname) 
    345303         
    346304        //Sample Field 
    347         strToExecute = GBLoadStr + "/S=190/U=1" + "\"" + fname + "\"" 
    348         Execute strToExecute 
    349         dum = w[0] 
    350305        InsertPoints lastPoint,1,GField 
    351         GField[lastPoint]=dum 
     306        GField[lastPoint]=getFieldStrength(fname) 
    352307         
    353308        //Beamstop position (not reported) 
     
    362317        GIsTrans[lastPoint]  = CheckIfBeamstopOut(fname, -5)            //returns one if beamstop is "out" 
    363318         
    364         KillWaves/Z w 
    365319        return(0) 
    366320End 
     
    457411        Variable ctime,lambda,sdd,detcnt,cntrate,refNum,trans,thick 
    458412         
    459         Open/R refNum as fname 
    460413        //read the file creation date 
    461         FSetPos refNum,55 
    462         FReadLine/N=20 refnum,date_time 
     414        date_time = getFileCreationDate(fname) 
    463415 
    464416        // read the sample.label text field 
    465         FSetPos refNum,98               //will start reading at byte 99 
    466         FReadLine/N=60 refNum,lbl 
     417        lbl = getSampleLabel(fname) 
    467418         
    468419        //read the counting time (integer) 
    469         FSetPos refNum,31 
    470         FBinRead/F=3/B=3 refNum, ctime 
    471          
    472         Close refNum 
    473          
    474         //read the reals with GBLoadWave 
    475         String GBLoadStr="GBLoadWave/O/N=tempGBwave/T={2,2}/J=2/W=1/Q" 
    476         String strToExecute 
    477          
    478         //detector count 
    479         strToExecute = GBLoadStr + "/S=47/U=1" + "\"" + fname + "\"" 
    480         Execute strToExecute 
    481         Wave w=$"tempGBWave0" 
    482         detcnt = w[0] 
     420        ctime = getCountTime(fname) 
     421                 
     422        //read the reals 
     423         
     424        //detector count + countrate 
     425        detcnt = getDetCount(fname) 
    483426        cntrate = detcnt/ctime 
    484427         
    485428        //wavelength 
    486         strToExecute = GBLoadStr + "/S=292/U=1" + "\"" + fname + "\"" 
    487         Execute strToExecute 
    488         lambda = w[0] 
     429        lambda = getWavelength(fname) 
    489430         
    490431        //SDD 
    491         strToExecute = GBLoadStr + "/S=260/U=1" + "\"" + fname + "\"" 
    492         Execute strToExecute 
    493         sdd = w[0] 
     432        sdd = getSDD(fname) 
    494433         
    495434        //Transmission 
    496         strToExecute = GBLoadStr + "/S=158/U=1" + "\"" + fname + "\"" 
    497         Execute strToExecute 
    498         trans = w[0] 
     435        trans = getSampleTrans(fname) 
    499436         
    500437        //Thickness 
    501         strToExecute = GBLoadStr + "/S=162/U=1" + "\"" + fname + "\"" 
    502         Execute strToExecute 
    503         thick = w[0] 
    504          
    505         KillWaves/Z w 
    506          
     438        thick = getSampleThickness(fname) 
     439                 
    507440        temp = "FILE:  " 
    508441        Notebook CatWin,textRGB=(0,0,0),text=temp 
     
    647580        Variable ctime,lambda,sdd,detcnt,cntrate,refNum,trans,thick,xcenter,ycenter,numatten 
    648581         
    649         Open/R refNum as fname 
    650582        //read the file creation date 
    651         FSetPos refNum,55 
    652         FReadLine/N=20 refnum,date_time 
     583        date_time = getFileCreationDate(fname)  
    653584 
    654585        // read the sample.label text field 
    655         FSetPos refNum,98               //will start reading at byte 99 
    656         // Only read the first 10 letters in the run label 
    657         FReadLine/N=15 refNum,lbl 
     586        lbl = getSampleLabel(fname) 
    658587         
    659588        //read the counting time (integer) 
    660         FSetPos refNum,31 
    661         FBinRead/F=3/B=3 refNum, ctime 
    662          
    663         Close refNum 
    664          
    665         //read the reals with GBLoadWave 
    666         String GBLoadStr="GBLoadWave/O/N=tempGBwave/T={2,2}/J=2/W=1/Q" 
    667         String strToExecute 
    668          
    669         //detector count 
    670         strToExecute = GBLoadStr + "/S=47/U=1" + "\"" + fname + "\"" 
    671         Execute strToExecute 
    672         Wave w=$"tempGBWave0" 
    673         detcnt = w[0] 
     589        ctime = getCountTime(fname) 
     590                 
     591        //read the reals 
     592        //detector count + countrate 
     593        detcnt = getDetCount(fname) 
    674594        cntrate = detcnt/ctime 
    675595         
     596        //wavelength 
     597        lambda = getWavelength(fname) 
     598         
     599        //SDD 
     600        sdd = getSDD(fname) 
     601         
     602        //Transmission 
     603        trans = getSampleTrans(fname) 
     604         
     605        //Thickness 
     606        thick = getSampleThickness(fname) 
     607                 
    676608        //Attenuators 
    677         strToExecute = GBLoadStr + "/S=154/U=1" + "\"" + fname + "\"" 
    678         Execute strToExecute 
    679         numatten = w[0] 
    680          
    681         //Transmission 
    682         strToExecute = GBLoadStr + "/S=158/U=1" + "\"" + fname + "\"" 
    683         Execute strToExecute 
    684         trans = w[0] 
    685          
    686         //Thickness 
    687         strToExecute = GBLoadStr + "/S=162/U=1" + "\"" + fname + "\"" 
    688         Execute strToExecute 
    689         thick = w[0] 
     609        numatten = getAttenNumber(fname) 
    690610 
    691611        //XCenter 
    692         strToExecute = GBLoadStr + "/S=252/U=1" + "\"" + fname + "\"" 
    693         Execute strToExecute 
    694         xCenter = w[0] 
     612        xCenter = getBeamXPos(fname) 
    695613 
    696614        //YCenter 
    697         strToExecute = GBLoadStr + "/S=256/U=1" + "\"" + fname + "\"" 
    698         Execute strToExecute 
    699         yCenter = w[0] 
    700  
    701         //SDD 
    702         strToExecute = GBLoadStr + "/S=260/U=1" + "\"" + fname + "\"" 
    703         Execute strToExecute 
    704         sdd = w[0] 
    705          
    706         //wavelength 
    707         strToExecute = GBLoadStr + "/S=292/U=1" + "\"" + fname + "\"" 
    708         Execute strToExecute 
    709         lambda = w[0] 
    710          
    711         KillWaves/Z w 
     615        yCenter = getBeamYPos(fname) 
     616 
    712617         
    713618        temp = "" 
Note: See TracChangeset for help on using the changeset viewer.