Ignore:
Timestamp:
Oct 4, 2010 10:15:08 AM (12 years ago)
Author:
srkline
Message:

Some utility procedures were moved from NSORT to NCNR_Utilities. These changes were previously propogated to ANSTO_Utils, and now are propagated to HFIR and ILL_Util files.

File:
1 edited

Legend:

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

    r683 r750  
    327327         
    328328         
     329//make an (N) character string of the run number 
     330//Moved to facility utils 
     331// 
     332// same scheme to get 6-character string as in GetRunNumStrFromFile(item) 
     333// 
     334Function/S RunDigitString(num) 
     335        Variable num 
     336         
     337//      String fullName="",partialName="",item="" 
     338//      String numStr="" 
     339//       
     340//      numStr = num2istr(num) 
     341//      // pad to 6 characters 
     342//      switch(strlen(numstr))  // numeric switch 
     343//              case 6:         // execute if case matches expression 
     344//                      break                                           // exit from switch 
     345//              case 5: 
     346//                      numStr = "0"+numStr 
     347//                      break 
     348//              case 4: 
     349//                      numStr = "00"+numStr 
     350//                      break 
     351//              case 3: 
     352//                      numStr = "000"+numStr 
     353//                      break 
     354//              case 2: 
     355//                      numStr = "0000"+numStr 
     356//                      break 
     357//              case 1: 
     358//                      numStr = "00000"+numStr 
     359//                      break                                                                                            
     360//              default:                                                        // optional default expression executed 
     361//      endswitch 
     362//       
     363         
     364        String numStr="" 
     365 
     366        //make 6 digit string from run number 
     367        sprintf numStr,"%06u",num 
     368         
     369        //Print "numstr = ",numstr 
     370        if(strlen(numstr) > 6) 
     371                return("") 
     372        else 
     373                return(numstr) 
     374        endif 
     375         
     376End 
     377         
     378        return(numstr) 
     379End 
     380 
     381// there is no prefix on D22 data files - they're just a run number 
     382// 
     383// so return null 
     384// 
     385// NCNR-specifc, does not really belong here - it's a beta procedure used for the 
     386// Combine Files Panel, and I'm not sure of how I'm really going to get this to work properly 
     387// since the .ABS file written is not of the form that NSORT->Set3NSORTFiles(low,med,hi,pref) 
     388// is trying to construct 
     389// 
     390Function/S GetPrefixStrFromFile(item) 
     391        String item 
     392        return("") 
     393End 
    329394 
    330395 
Note: See TracChangeset for help on using the changeset viewer.