function fahren, degree, to_celsius = to_celsius, to_fahrenheit = to_fahrenheit

;+
;	Converts Fahrenheit degree to Celsius (default) and reverse if keyword
; 	TO_FAHRENHEIT is set and non-zero.
;
;	Example:
;	print, fahren([32, 63, 86])
;-

if not(keyword_set(to_fahrenheit)) then return, (degree-32.)/(212-32.)*100. else $
	return,  degree/100.*(212-32.)+32.

	end