 fprintf('script case3 to .....call   p\n');   %Script case3.m
 y=p;
 y= ['Case  3: ' y ' called by script case3'];
 fprintf('%s\n',y);
