PP_STOP_SERVERS(PR_PATH,PR_SERVER_NAME)

function PP_STOP_SERVERS(PR_PATH,PR_SERVER_NAME)
%PP_STOP_SERVERS(PR_PATH,PR_SERVER_NAME)
%
%  This function creates the files which serve as indications
%  to PP server sessions to cease operation. Control returns
%  immediately; there is no wait for the servers to actually
%  terminate.
%
%  Parameters:
%     PR_PATH - the path of the shared communication directory
%        of the servers.
%     PR_SERVER_NAME - the name of the server to stop. If 
%        null or left unspecified, all servers using the shared
%        directory will be stopped.

% This file and the DistributePP software package were created and
% are maintained by Michael D. DeVore. The package originated in
% November, 1999. Permission is granted by the author for anyone
% to use or modify this software provided that:
% (1) any modified files are documented internally to clearly indicate
%     that they have been modified from the original release; and
% (2) it is recognized that neigher Michael D. DeVore nor Washington
%     University assumes any liability for the use or misuse of the software.

if nargin < 2
   PR_SERVER_NAME = '';
end

if strcmp(PR_SERVER_NAME,'')
   fclose(fopen([PR_PATH 'STOP_ALL.ind'],'w'));
else
   fclose(fopen([PR_PATH 'STOP_' PR_SERVER_NAME '.ind'],'w'));
end