Ignore:
Timestamp:
May 30, 2008 2:19:48 PM (15 years ago)
Author:
srkline
Message:

corrections to ILL R/W and utilities for parsing run numbers

Location:
sans/Dev/trunk/NCNR_User_Procedures/SANS/Reduction
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • sans/Dev/trunk/NCNR_User_Procedures/SANS/Reduction/ILL_DataReadWrite.ipf

    r370 r376  
    851851        // your writer here 
    852852         
    853         WriteReal(fname,trans,5589)     //I will define at position 10 lines   by myself 
     853        WriteReal(fname,trans,5589)     //I will define at position 10 lines position 1  by myself 
     854         
     855        // 16 bites between numbers and 81 per line 
    854856         
    855857        return(0) 
    … …  
    863865         
    864866        // do nothing for now 
    865         WriteReal(fname,trans,6885) 
     867        WriteReal(fname,trans,6885)   /// //I will define at position last  lines  position 1  by myself 
    866868         
    867869        return(0) 
    … …  
    878880        WriteReal(fname,counts,6868) 
    879881         
     882        ////I will define at position 2   lines before the end and  last position   by myself 
     883         
     884         
    880885        return(0) 
    881886End 
    … …  
    889894        // do nothing if not using NCNR Transmission module 
    890895         
    891         WriteReal(fname,xpos,5120)    ////should do it for ypos for ILL ....NEED TO REMEMBER HERE 
     896        WriteReal(fname,xpos,5119)    ////should do it for ypos for ILL ....NEED TO REMEMBER HERE 
     897        /// line 4 column 2     
    892898         
    893899        return(0) 
    … …  
    901907        // your code here 
    902908         
    903         WriteReal(fname,num,5508)  //define at 9 lines  just above transmission 
     909        WriteReal(fname,num,5508)  //define at 9 lines  column 1 just above transmission by myself 
    904910         
    905911        return(0) 
    … …  
    916922        WriteReal(fname,num,5670)  
    917923         
     924        ///   line 11 column 1 
     925         
    918926        return(0) 
    919927End 
    … …  
    927935         
    928936        WriteReal(fname,num,5686) 
     937         
     938        ///   line 11 column 2 
    929939         
    930940        return(0) 
    … …  
    940950         
    941951        // your code here, default of 1 
    942         WriteReal(fname,num,5801) 
     952        WriteReal(fname,num,5799) 
     953         
     954        ///   line 12 column 4 
    943955         
    944956        return(0) 
    … …  
    952964        // your code here 
    953965         
    954         WriteReal(fname,num,4926) 
     966        WriteReal(fname,num,4924) 
     967         
     968        ///   line 1 column 5 
    955969         
    956970        return(0) 
    … …  
    964978        // your code here 
    965979         
    966         WriteReal(fname,num,4910) 
     980        WriteReal(fname,num,4908) 
     981         
     982        ///   line 1 column 4 
    967983         
    968984        return(0) 
    … …  
    9861002         
    9871003        // your code here 
    988         WriteReal(fname,num,5702) 
     1004        WriteReal(fname,num,5703) 
     1005         
     1006        //   line 11 column 3 
    9891007         
    9901008        return(0) 
    … …  
    9981016        // your code here 
    9991017         
    1000         WriteReal(fname,num,5718) 
     1018        WriteReal(fname,num,5719) 
     1019         
     1020        //   line 11 column 4 
    10011021         
    10021022        return(0) 
    … …  
    10101030        //  your code here 
    10111031         
    1012         WriteReal(fname,num,5348) 
     1032        WriteReal(fname,num,5347) 
     1033         
     1034        //   line 7 column 1 
    10131035         
    10141036        return(0) 
    … …  
    10321054        // your code here 
    10331055//      WriteReal(fname,num,5348) 
     1056      WriteReal(fname,num,6027)    ///4*81 = 324 
     1057       
     1058      // line 15 colum 3 
    10341059         
    10351060        return(0) 
    … …  
    10421067         
    10431068        //your code here 
    1044         WriteReal(fname,num,6028) 
     1069        WriteReal(fname,num,6043) 
     1070         
     1071            // line 15 colum 4 
    10451072         
    10461073        return(0) 
    … …  
    10531080         
    10541081        //      your code here 
    1055         WriteReal(fname,num,5785) 
     1082        WriteReal(fname,num,5784)  //it is collimation at ILL 
     1083         
    10561084         
    10571085        return(0) 
    … …  
    10651093        //your code here 
    10661094         
    1067         WriteReal(fname,num,5850) 
     1095        WriteReal(fname,num,5849) 
     1096         
     1097         
     1098         
     1099        // line 13 column 2 
    10681100         
    10691101        return(0) 
    … …  
    10761108         
    10771109        // your code here 
    1078         WriteReal(fname,num,6060) 
     1110        WriteReal(fname,num,6059) 
     1111         
     1112        //line 15 column 5 
    10791113         
    10801114        return(0) 
    … …  
    10871121         
    10881122        //your code here 
    1089         WriteReal(fname,num,5153) 
     1123        WriteReal(fname,num,5152) 
     1124         
     1125        // line 4 column 4 
    10901126         
    10911127        return(0) 
    … …  
    10981134         
    10991135        //your code here 
    1100         WriteReal(fname,num,5736) 
     1136        WriteReal(fname,num,5735) 
     1137         
     1138        //  line 11 column 5    
    11011139         
    11021140        return(0) 
    … …  
    11091147         
    11101148        //your code here 
    1111         WriteReal(fname,num,5753) 
     1149        WriteReal(fname,num,5752) 
    11121150         
    11131151        return(0) 
    … …  
    11191157         
    11201158        // your code here 
    1121         WriteText(fname,str,2025) 
     1159        WriteText(fname,"                              ",2075) 
     1160        WriteText(fname,str,2075)   //// need to change that in order to erase the title and write a new one 
    11221161 
    11231162        return(0) 
    … …  
    11311170        // your code here 
    11321171//      WriteReal(fname,num,4894) 
    1133         WriteReal(fname,num,4892) 
     1172        WriteReal(fname,10*num,4892) 
    11341173         
    11351174         
    … …  
    14511490        // your code returning value 
    14521491         
     1492        value  = 52 
     1493         
    14531494        return(value) 
    14541495end 
    … …  
    14641505        value = getRealValueFromHeader(fname,72) 
    14651506         
    1466         value = 5 
     1507        value = 10 
    14671508         
    14681509        return(value) 
    … …  
    16371678        WriteReal(filename,y2,6852) 
    16381679         
    1639         print "in write",x1,x2,y1,y2 
     1680        // use the last full line and the 4 first numbers 
     1681         
     1682//      print "in write",x1,x2,y1,y2 
    16401683         
    16411684        //  should start at 120  for read and  line 25 

  • sans/Dev/trunk/NCNR_User_Procedures/SANS/Reduction/ILL_Utils.ipf

    r371 r376  
    245245        String numStr="" 
    246246         
    247          
    248247        numStr = num2str(num) 
     248        // pad to 6 characters 
     249        switch(strlen(numstr))  // numeric switch 
     250                case 6:         // execute if case matches expression 
     251                        break                                           // exit from switch 
     252                case 5: 
     253                        numStr = "0"+numStr 
     254                        break 
     255                case 4: 
     256                        numStr = "00"+numStr 
     257                        break 
     258                case 3: 
     259                        numStr = "000"+numStr 
     260                        break 
     261                case 2: 
     262                        numStr = "0000"+numStr 
     263                        break 
     264                case 1: 
     265                        numStr = "00000"+numStr 
     266                        break                                                                                            
     267                default:                                                        // optional default expression executed 
     268        endswitch 
    249269         
    250270//      Print "numstr = ",numstr 
    … …  
    275295                        //find the run number, if it exists as a three character string 
    276296                        testStr = GetRunNumStrFromFile(item) 
    277                          
     297                        runFound = cmpstr(numStr,testStr) 
     298                        if(runFound == 0) 
    278299                                partialName = FindValidFileName(item) 
    279300                                if(strlen(partialName) != 0)            //non-null return from FindValidFileName() 
    … …  
    283304                                        if(isRaw) 
    284305                                                //stop here 
    285                                                  
    286                                                 print fullname 
     306                                                //print fullname 
    287307                                                return(fullname) 
    288308                                        Endif 
    289309                                Endif 
    290                          
     310                        Endif 
    291311                Endif 
    292312                ii+=1 
Note: See TracChangeset for help on using the changeset viewer.