imake_ripple_yp

 This function interactively builds the ripple structure

0001 function ripple = imake_ripple_yp(dkepath,basestr,equil,external,workdir,opt_gui)
0002 %
0003 % This function interactively builds the ripple structure
0004 %
0005 ripple = '';
0006 %
0007 mode = input('Magnetic ripple calculation. Yes: 1, No: 0, [0] : ');
0008 if isempty(mode),
0009     mode = 0;
0010 end
0011 if mode > 1,mode = 1;end
0012 %
0013 ripple.mode = mode;
0014 %
0015 id_ripple_i = 'TScylmodel';
0016 id_ripple = input(['Please specify a name for the ''ripple'' structure : [',id_ripple_i,'] : '],'s');
0017 if isempty(id_ripple),
0018     id_ripple = id_ripple_i;
0019 end
0020 ripple.id = id_ripple;
0021 %
0022 
0023 
0024 
0025 
0026