FUNCTION sfd_decomp, data
;+	-----------------------------------------------------------
;							22-Oct-92
;	NAME: sfd_decomp
;
;	PURPOSE: Decompress sfd data.
;
;	CALLING SEQUENCE:
;		un_data = sfd_decomp(data)
;
;	INPUT:
;		data 	sfd data to be decompressed.
;
;	RETURNED/OUTPUT:
;		decompressed sfd data
;
;	HISTORY:
;		written 22-Oct-92, gal
;-
;	-----------------------------------------------------------

	info = SIZE(data)
	IF ( info(info(0)+1) eq 1 ) THEN BEGIN	;input is byte-type
          ret = data*6./255.              ;decompress sfd file data
	  ret = 10.^ret
	ENDIF ELSE BEGIN
	  Print, 'Input data must be compressed byte-type!'
	  ret = -1
	ENDELSE

	RETURN, ret
	END