0001 function [MachineName, SubMachineName, LinkFlag, MMLROOT] = setpathnsrrc(LinkFlag)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011 Machine = 'NSRRC';
0012
0013
0014
0015 if nargin < 1
0016 LinkFlag = '';
0017 end
0018 if isempty(LinkFlag)
0019 if strncmp(computer,'PC',2)
0020 LinkFlag = 'mca';
0021 elseif isunix
0022 LinkFlag = 'labca';
0023 else
0024 LinkFlag = 'mca';
0025 end
0026 end
0027
0028 [MachineName, SubMachineName, LinkFlag, MMLROOT] = setpathmml(Machine, 'StorageRing', 'StorageRing', LinkFlag);
0029