;+
;NAME:
;	REFORM1
;PURPOSE:
;	Much like the normal 'reform' in idl, but if a single value is 
;	inputted, then program doesn't bomb out.  Instead the single value is
;	just returned.    (program made for RD_TAR.PRO)
;CALLING SEQUENCE:
;	name of new array/variable= REFORM1(array or single value)
;HISTORY:
;	MGC, Mar, 1993.
;-
function reform1, array
if n_elements(array) eq 1 then new_array=array $
else new_array=reform(array)
return, new_array
end