function?i=enviwrite（imagefname）;

%?enviwrite??????????	-?write?ENVI?image?from?MATLAB?array?（V.?Guissard?Apr?29?2004）
%
%?				Write?a?MATLAB?array?to?a?file?in?ENVI?standard?format
%				from?a?[col?x?line?x?band]?array
%
%?SYNTAX
%
%?image=freadenvi（fname）
%?[imagep]=freadenvi（fname）
%?[imagept]=freadenvi（fname）
%
%?INPUT?:
%
%
%?image	c?by?l?by?b	name?of?the?MATLAB?variable?containing?the?array?to?export
%				to?an?ENVI?image?with?c?=?cols?l?the?lines?and?b?the?bands
%?fname	string	full?pathname?of?the?ENVI?image?to?write.
%
%?OUTPUT?:
%
%?i		integer	i?=?-1?if?process?fail
%
%?NOTE?:?			
%
%%%%%%%%%%%%%

%?Parameters?initialization
im_size=size（image）;
im_size（3）=size（image3）;
elements={‘samples?=‘?‘lines???=‘?‘bands???=‘?‘data?type?=‘};
d=[4?1?2?3?12?13];
%?Check?user?input
if?~ischar（fname）
????error（‘fname?should?be?a?char?string‘）;
end

cl1=class（image）;
if?cl1?==?‘double‘
????img=si