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
