function case2a           % case2a.m
  fprintf('case2a to ...........call   p\n');
  y= p; 
  y= ['Case 2a: ' y ' called by primary func case2a'];
  fprintf('%s\n',y);
end

