%*** stack.m calls appropriate subroutines for given model parameters

fprintf('Working on source # %d ...\n',idum);
source_type(idum) = get(sourcetypebut, 'value');  %1=Mogi,2=penny,3=Yang,4=Okada
delete(getsrc_plate);

switch source_type(idum)

case 1
get_mogi

case 2
get_penny

case 3
get_yang

case 4
get_disl

end
