Changeset 83

Timestamp:

Apr 11, 2007 1:44:21 PM (15 years ago)

Author:

srkline

Message:

more tweaks and comments in the NCNR_*.ipf files

Location:

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

Files:

• NCNR_DataReadWrite.ipf (modified) (8 diffs)
• NCNR_Utils.ipf (modified) (1 diff)

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

@@ -58 +58 @@
 //fname is the full path:name;vers required to open the file
 //VAX record markers are skipped as needed
-//the data as read in is in compressed I*2 format, and is decompressed
+//VAX data as read in is in compressed I*2 format, and is decompressed
 //immediately after being read in. The final root:RAW:data wave is the real
 //neutron counts and can be directly operated on
-//header information is put into three wave, integers,reals, and text
-//logicals in the header are currently skipped, since they are no use in the 
-//data reduction process.
-//
-// detector data is loaded into an array named "data"
-//
-// called by multiple ipfs (when the file name is known)
+//
+// header information is put into three waves: integersRead, realsRead, and textRead
+// logicals in the header are currently skipped, since they are no use in the 
+// data reduction process.
+//
+// The output is the three R/T/I waves that are filled at least with minimal values
+// and the detector data loaded into an array named "data"
+//
+// see documentation for the expected information in each element of the R/T/I waves
+// and the minimum set of information. These waves can be increased in length so that
+// more information can be accessed as needed (propagating changes...)
+//
+// called by multiple .ipfs (when the file name is known)
 //
 Function ReadHeaderAndData(fname)
@@ -983 +989 @@
 //--so start is actually the "end byte" of the previous value
 //
+// Igor cannot write VAX FP values - so to "fake it"
+// (1) write IEEE FP, 4*desired value, little endian
+// (2) read back as two 16-bit integers, big endian
+// (3) write the two 16-bit integers, reversed, writing each as big endian
+//
 //this procedure takes care of all file open/close pairs needed
 //
@@ -999 +1010 @@
         FSetPos refnum,start
         FBinWrite/B=3/F=4 refnum,value4         //write out as little endian
-        
         //move to the end of the file
         FStatus refnum
-        FSetPos refnum,V_logEOF
-        //Print "Wrote end of header to " + num2str(V_filePOS)
-        
+        FSetPos refnum,V_logEOF 
         Close refnum
         
@@ -1012 +1020 @@
         FSetPos refnum,start
         FBinRead/B=2/F=2 refnum,int1    //read as big-endian
-        FBinRead/B=2/F=2 refnum,int2
-        
-        //file was opened read-only
-        //no need to move to the end of the file, just close it
-        
+        FBinRead/B=2/F=2 refnum,int2    
+        //file was opened read-only, no need to move to the end of the file, just close it      
         Close refnum
+        
 ///////
         Open/A/T="????TEXT" refnum as path
@@ -1024 +1030 @@
         FBinWrite/B=2/F=2 refnum,int2   //re-write as big endian
         FBinWrite/B=2/F=2 refnum,int1
-        
         //move to the end of the file
         FStatus refnum
         FSetPos refnum,V_logEOF
-        //Print "Wrote end of header to " + num2str(V_filePOS)
-        
         Close refnum            //at this point, it is as the VAX would have written it. 
         
@@ -1227 +1230 @@
 //rewrite a text field back to the header
 // fname is the full path:name
-// str is the CORRECT length - it will all be written - pad before sending
+// str is the CORRECT length - it will all be written - pad or trim before passing
 // start is the start byte
 Function WriteTextToHeader(fname,str,start)
@@ -1240 +1243 @@
         FStatus refnum
         FSetPos refnum,V_logEOF
-        //Print "Wrote end of header to " + num2str(V_filePOS)
         Close refnum
                 
@@ -1273 +1275 @@
         FStatus refnum
         FSetPos refnum,V_logEOF
-        //Print "Wrote end of header to " + num2str(V_filePOS)
         Close refnum
                 

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

@@ -45 +45 @@
         // - when it is, remove the global and write an accessor AND make a place for 
         // it in the RealsRead 
-        Variable/G root:myGlobals:apOff = 5.0                           // (cm) distance from sample aperture to sample position
+        Variable/G root:myGlobals:apOff = 10.0                          // (cm) distance from sample aperture to sample position
 
 End