;
;
FUNCTION  SET_IMGVAL, data, head

  filled = WHERE(STRTRIM(head, 2) NE '', nh)

  i = -1
  repeat i=i+1 until (strmid(head(i),0,6) eq 'BSCALE') or (i eq nh)
  if i eq nh then begin
     bscale=1.
     print,'bscale parameter not found,  set to 1.0' 
  endif else begin
     bscale = float(strmid(head(i),10,20))
  endelse

  i = -1
  repeat i=i+1 until (strmid(head(i),0,5) eq 'BZERO') or (i eq nh)                         
  if i eq nh then begin
     bzero=0.
     print,'bzero parameter not found,  set to 0.0'
  endif else begin
     bzero = float(strmid(head(i),10,20))
  endelse

  data_dum=float(data)
  data_dum=float(data)*bscale+bzero
  data=data_dum

  RETURN, data
END