function []=multistat_prog(Volume);

file_str=inputdlg('Enter Name of File to Save Design as (including full path)','Design Save',1,{Volume.savefile});
Volume.savefile=cat(1,file_str{:});
if ~isempty(Volume.savefile)   
    save (Volume.savefile,'Volume');
end

if Volume.Multi.X.X==1;
    Volume.Multi.X.X=ones(Volume.Multi.Input.numinput,1);
end
if Volume.Multi.Contrast.Contrast==1;
    Volume.Multi.Contrast.Contrast=ones(size(Volume.Multi.X.X,2),1);
end

if ~Volume.Multi.Batch
    Volume.Multi.Df = multistat(Volume.Multi.Input.filelist,Volume.Multi.InputSD.filelist,Volume.Multi.Dfs.Dfs, ...
        Volume.Multi.FWHMIn,Volume.Multi.X.X,Volume.Multi.Contrast.Contrast,Volume.Multi.OutputFile.Base,Volume.Multi.WStats, ...
        Volume.Multi.FWHMvaratio,Volume.Multi.Niter);
    if ~isempty(Volume.savefile)
        save(Volume.savefile,'Volume');
    end
else
    batch_file=create_batch_file(Volume.savefile);
    execstr=['chmod u+x ' batch_file];unix(execstr);
    execstr=['batch -Hwart -Qlong ' batch_file];unix(execstr);
end

set(Volume.fig,'Visible','on');
set(Volume.fig,'Userdata',Volume);

return;

function [filename]=create_batch_file(savefile);

filename=['multistat_batch_' datestr(now,1) '_' datestr(now,13) '.csh'];filename=strrep(filename,':','-');
fid=fopen(filename,'w');
if fid>0
    outstr=['#! /bin/csh -f\nmatlab6 -nojvm -display none << EOF\nload ',savefile,'\n[Volume.Multi.Df]=' ... 
            'multistat(Volume.Multi.Input.filelist,Volume.Multi.InputSD.filelist,Volume.Multi.Dfs.Dfs, ...\n' ...
            'Volume.Multi.FWHMIn,Volume.Multi.X.X,Volume.Multi.Contrast.Contrast,Volume.Multi.OutputFile.Base,Volume.Multi.WStats, ...\n' ...
            'Volume.Multi.FWHMvaratio,Volume.Multi.Niter);\n' ...
            'if ~isempty(Volume.savefile)\nsave(Volume.savefile,''Volume'');\nend\n\nexit;\nEOF\n'];
    
    fprintf(fid,outstr);
    
    fclose(fid);
else
    errordlg('Cannot Create Batch Startup File','Batch Error');
end

return;