Changeset 70 for sans/SANSReduction/branches/kline_29MAR07/Put in User Procedures/SANS_Reduction_v5.00/NCNR_DataReadWrite.ipf

Timestamp:

Mar 29, 2007 4:02:33 PM (16 years ago)

Author:

srkline

Message:

more file adjustments to clean out NCNR bits

File:

• sans/SANSReduction/branches/kline_29MAR07/Put in User Procedures/SANS_Reduction_v5.00/NCNR_DataReadWrite.ipf (modified) (2 diffs)

sans/SANSReduction/branches/kline_29MAR07/Put in User Procedures/SANS_Reduction_v5.00/NCNR_DataReadWrite.ipf

@@ -829 +829 @@
 //
 
-//returns a string containg the transmision stored in the file that is 
-//currently in the "type" folder (not from the binary header)
-//returns "none" if the value (in RealsRead) cannot be found
-//
-Function/S GetTrans(type)
-        String type
-        
-        String name="root:"+type+":realsread"
-        WAVE reals = $name
-        if(waveExists(reals))
-                return(num2str(reals[4]))
-        else
-                return("none")
-        endif   
-End
-
-//returns a string containg the sample thickness stored in the file that is 
-//currently in the "type" folder (not from the binary header)
-//returns "none" if the value (in RealsRead) cannot be found
-//
-Function/S GetThick(type)
-        String type
-        
-        String name="root:"+type+":realsread"
-        WAVE reals = $name
-        if(waveExists(reals))
-                return(num2str(reals[5]))
-        else
-                return("none")
-        endif   
-End
+
 
 /////*****************
@@ -936 +906 @@
         Return(0)
 End
+
+// read specific bits of information from the header
+// each of these operations MUST take care of open/close on their own
+
+Function/S getStringFromHeader(fname,start,num)
+        String fname                            //full path:name
+        Variable start,num              //starting byte and number of characters to read
+        
+        String str
+        Variable refnum
+        Open/R refNum as fname
+        FSetPos refNum,start
+        FReadLine/N=(num) refNum,str
+        Close refnum
+        
+        return(str)
+End
+// file suffix (4 characters @ byte 19)
+Function/S getSuffix(fname)
+        String fname
+        
+        return(getStringFromHeader(fname,19,4))
+End
+
+// sample label (60 characters @ byte 98)
+Function/S getSampleLabel(fname)
+        String fname
+        
+        return(getStringFromHeader(fname,98,60))
+End
+
+// read a single real value with GBLoadWave
+Function getRealValueFromHeader(fname,start)
+        String fname
+        Variable start
+
+        String GBLoadStr="GBLoadWave/O/N=tempGBwave/T={2,2}/J=2/W=1/Q"
+        
+        GBLoadStr += "/S="+num2str(start)+"/U=1" + "\"" + fname + "\""
+        Execute GBLoadStr
+        Wave w=$"tempGBWave0"
+        
+        return(w[0])
+End
+
+//SDD is at byte 260
+Function getSDD(fname)
+        String fname
+        
+        return(getRealValueFromHeader(fname,260))
+end
+//reads the wavelength from a reduced data file (not very reliable)
+// - does not work with NSORTed files
+// - only used in FIT/RPA (which itself is almost NEVER used...)
+//
+Function GetLambdaFromReducedData(tempName)
+        String tempName
+        
+        String junkString
+        Variable lambdaFromFile, fileVar
+        lambdaFromFile = 6.0
+        Open/R/P=catPathName fileVar as tempName
+        FReadLine fileVar, junkString
+        FReadLine fileVar, junkString
+        FReadLine fileVar, junkString
+        if(strsearch(LowerStr(junkString),"lambda",0) != -1)
+                FReadLine/N=11 fileVar, junkString
+                FReadLine/N=10 fileVar, junkString
+                lambdaFromFile = str2num(junkString)
+        endif
+        Close fileVar
+        
+        return(lambdaFromFile)
+End
+