asknu

PURPOSE

little function to ask user for number, with default

SYNOPSIS

function o=asknu(s,i);

DESCRIPTION

 little function to ask user for number, with default

CROSS-REFERENCE INFORMATION

This function calls:

This function is called by:

cfail convergence failure handling.
meshadac adapt mesh after Coarsening, i.e. first interpol to (coarse) standard-mesh, then adapt
meshref adapt (i.e., refine locally) mesh
movedatadirs move data directories from subdirs of appdir to backdir (for cleanup!)
newbmesh build new base mesh
newmesh build new mesh and interpolate (u,tau) to it
rmdatadirs remove data directories from subdirs of appdir (a cleanup tool)
rmlocdirs remove data directories from current dir (a cleanup tool)
setfn set filenames according to name of p or varargin
swibra load data from file pre/fname and attempt branch switch,

SOURCE CODE

0001 % little function to ask user for number, with default
0002 function o=asknu(s,i); 
0003 as=[s,'(default=',num2str(i),'):'];
0004 reply= str2num(input(as , 's')); 
0005 if isempty(reply) reply=i; end 
0006 if isnumeric(reply) o=reply; else o=i; end 
0007 end