function call_msuite(Nombre)
% -------------------------------------------------------------------------
% Llama al msuite en formato shell
% -------------------------------------------------------------------------
% --------------------------------- Datos ---------------------------------
% nombre: nombre del ejemplo
% paso : numero de paso del analisis
% --------------- Genera archivo de parametros para el msuite -------------
archivo=[Nombre,'.meshscr'];
fid = fopen(archivo,'w');
fprintf(fid,'Archivos de datos: 1\n');
nombre_archivo=[Nombre,'.dat'];
fprintf(fid,'%s\n',nombre_archivo);
fprintf(fid,'Genera: 1\n');
fprintf(fid,'Elimina Slivers: 0\n');
fprintf(fid,'Alpha: 0.95\n');
fprintf(fid,'Poliedros: 0\n');
fprintf(fid,'Malla: 8\n');
fprintf(fid,'Calidad: 0\n');
fprintf(fid,'Números de nodo: 0\n');
fprintf(fid,'Superficie: 1\n');
status=fclose(fid);
j=2
% ----------------------------- Llama al msuite ---------------------------
comando=['./msuite_CL ',archivo]
status = unix(comando,'-echo')
%unix('./msuite_CL datos.meshscr')
j=3
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
