Issue 55: Correct bug in tee for in16b

lamp_mac/tee.pro

@@ -131,10 +131,12 @@ function tee, in_wk, DEAD=dead
       endelse
     endelse
     x_tit[one]='Energy Transfer (ueV)'
+    
     ;Energy corresponds to neutron energy transfer, 
     ;reverse array to be consistent with usual ILL
     ;choice of plotting vs SAMPLE energy transfer
-    in_wk = reverse(in_wk)
+    w_out = reverse(in_wk)
+    e_out = reverse(e_out)
     
     ; Copies work-space stuff from simple arrays back to main LAMP arrays
     n_wk = string(out_wk)
@@ -148,7 +150,7 @@ function tee, in_wk, DEAD=dead
     jjj = execute('e' +n_wk+'=e_out' )
     ;
     ;done @mac.out
-    return, in_wk
+    return, w_out
   endif
 
   coef  = fltarr(nch)