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

% (c) John Aston & Roger Gunn

if strcmp(d.file_name(2),':') | strcmp(d.file_name(1),'/')
   d.file_path='';
end

if ~isfield(d,'file_path') & isfield(d,'parent_file')
   i=max([findstr(d.parent_file,'/') findstr(d.parent_file,'\') findstr(d.parent_file,':')]);
   d.file_path=d.parent_file(1:i);
end

switch lower(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