pa_headfile_name

 get head file name.
 [Usage]
    pa_headfile_name(proj_root, head_parm);
 [Input]
    proj_root : project root directory.
    head_parm : head parm for vb_job_head_3shell.
 [Output]
    head_file : head file name(.head.mat)

0001 function head_file = pa_headfile_name(proj_root, head_parm)
0002 % get head file name.
0003 % [Usage]
0004 %    pa_headfile_name(proj_root, head_parm);
0005 % [Input]
0006 %    proj_root : project root directory.
0007 %    head_parm : head parm for vb_job_head_3shell.
0008 % [Output]
0009 %    head_file : head file name(.head.mat)
0010 
0011 %
0012 % --- Previous check
0013 %
0014 if nargin ~= 2
0015     error('Please check function usage.');
0016 end
0017 
0018 %
0019 % --- Main Procedure
0020 %
0021 head_file = fullfile(proj_root, head_parm.head_file);
0022 if head_parm.Nsurf == 1
0023     head_file = [head_file, '_CSF_', num2str(head_parm.Nvertex), '.head.mat'];
0024 elseif head_parm.Nsurf == 3
0025     head_file = [head_file, '_3shell_', num2str(head_parm.Nvertex*head_parm.Nsurf), '.head.mat'];
0026 else
0027     error('Head model is 1shell or 3shell');
0028 end
0029