function cleanup (dircsm,dirdel);

cd (dircsm);
delete ('com*');
delete ('nesthd2.dia');
delete ('xbeach.*');
delete ('*.sp2');
delete ('Wndnow');
delete ('Nest*');
delete ('tri-rst*');

% [success] = rmdir(dirdel,'s');
