;+
; This procedure adds a bias to the data in the PDC (!g.s[0]).
;
; @param factor {in}{required}{type=float} scalar value to be added
;
; @examples
; <pre>
;    getrec,1
;    show
;    bias,1.3
;    show
; </pre>
;
; @uses <a href="../toolbox/dcbias.html">dcbias</a>
;
; @version $Id: bias.pro,v 1.3 2005/05/29 22:44:15 bgarwood Exp $
;
;-
pro bias, factor

    on_error,2
    if !g.line then begin
        if data_valid(!g.s[0]) le 0 then begin
           message,'No data in primary data container',/info
           return
        endif
        dcbias,!g.s[0],factor 
    endif else begin    
        if data_valid(!g.c[0]) le 0 then begin
           message,'No data in primary data container',/info
           return
        endif
        dcbias,!g.c[0],factor 
    endelse    
    if !g.frozen eq 0 then show
    
end