function [d]=fmris_write_image(d,Z,T)

% (c) John Aston & Roger Gunn

switch d.file_name((length(d.file_name)-3):length(d.file_name))
case '.mnc'
   if nargin == 3
      fmris_write_minc(d,Z,T);
   else
      fmris_write_minc(d);
   end
case '.img'
   if nargin == 3
      fmris_write_analyze(d,Z,T);
   else
      fmris_write_analyze(d);
   end
end