function out = isAtomicSubchartSubsystem(sfSubsystemH)
%

%   Copyright 2010-2012 The MathWorks, Inc.

    out = isStateflowBlock(sfSubsystemH) && ...
        isStateflowBlock(get_param(get_param(sfSubsystemH, 'Parent'),'Handle'));    
end

function yn = isStateflowBlock(blockH)
    yn = strcmp(get_param(blockH, 'Type'), 'block') && ...
         slprivate('is_stateflow_based_block', blockH);
end
