mirror of
https://github.com/amd/blis.git
synced 2026-05-25 19:04:32 +00:00
addcd46b05
Details: - Added single-threaded and multithreaded sup performance results to docs/PerformanceSmall.md for both sgemm and dgemm. These results were gathered on an Epyc 7742 "Rome" server featuring AMD's Zen2 microarchitecture. Special thanks to Jeff Diamond for facilitating access to the system via the Oracle Cloud. - Updates to octave scripts in test/sup/octave for use with Octave 5.2 and for use with subplot_tight(). - Minor updates to octave scripts in test/3/octave. - Renamed files containing the previous Zen performance results for consistency with the new results. - Decreased line thickness slightly in large/conventional Zen2 graphs. I'm done tweaking those this time. Really. - Added missing line regarding eigen header installation for each microarchitecture section.
203 lines
6.2 KiB
Matlab
203 lines
6.2 KiB
Matlab
function r_val = plot_l3_perf( opname, ...
|
|
data_blis, ...
|
|
data_open, ...
|
|
data_eige, ...
|
|
data_vend, vend_str, ...
|
|
nth, ...
|
|
rows, cols, ...
|
|
with_eigen, ...
|
|
cfreq, ...
|
|
dfps, ...
|
|
theid, ...
|
|
leg_pos_st, leg_pos_mt, ...
|
|
sp_margins )
|
|
|
|
% Define the column in which the performance rates are found.
|
|
flopscol = size( data_blis, 2 );
|
|
|
|
% Define which plot id will have the legend.
|
|
% NOTE: We can draw the legend on any graph as long as it has already been
|
|
% rendered. Since the coordinates are global, we can simply always wait until
|
|
% the final graph to draw the legend.
|
|
legend_plot_id = cols*rows;
|
|
|
|
% Set line properties.
|
|
color_blis = 'k'; lines_blis = '-'; markr_blis = '';
|
|
color_open = 'r'; lines_open = '--'; markr_open = 'o';
|
|
color_eige = 'm'; lines_eige = '-.'; markr_eige = 'x';
|
|
color_vend = 'b'; lines_vend = '-.'; markr_vend = '.';
|
|
|
|
% Compute the peak performance in terms of the number of double flops
|
|
% executable per cycle and the clock rate.
|
|
if opname(1) == 's' || opname(1) == 'c'
|
|
flopspercycle = dfps * 2;
|
|
else
|
|
flopspercycle = dfps;
|
|
end
|
|
max_perf_core = (flopspercycle * cfreq) * 1;
|
|
|
|
% Adjust title for real domain hemm and herk.
|
|
title_opname = opname;
|
|
if opname(1) == 's' || opname(1) == 'd'
|
|
% if strcmp( extractAfter( opname, 1 ), 'hemm' ) || ...
|
|
% strcmp( extractAfter( opname, 1 ), 'herk' )
|
|
% title_opname(2:3) = 'sy';
|
|
% end
|
|
opname_u = opname; opname_u(1) = '_';
|
|
if strcmp( opname_u, '_hemm' ) || ...
|
|
strcmp( opname_u, '_herk' )
|
|
title_opname(2:3) = 'sy';
|
|
end
|
|
end
|
|
|
|
% Print the title to a string.
|
|
titlename = '%s';
|
|
titlename = sprintf( titlename, title_opname );
|
|
|
|
% Set the legend strings.
|
|
blis_legend = sprintf( 'BLIS' );
|
|
open_legend = sprintf( 'OpenBLAS' );
|
|
eige_legend = sprintf( 'Eigen' );
|
|
%vend_legend = sprintf( 'MKL' );
|
|
%vend_legend = sprintf( 'ARMPL' );
|
|
vend_legend = vend_str;
|
|
|
|
% Set axes range values.
|
|
y_scale = 1.00;
|
|
x_begin = 0;
|
|
x_end = data_blis( size( data_blis, 1 ), 1 );
|
|
y_begin = 0;
|
|
y_end = max_perf_core * y_scale;
|
|
|
|
% Set axes names.
|
|
if nth == 1
|
|
yaxisname = 'GFLOPS';
|
|
else
|
|
yaxisname = 'GFLOPS/core';
|
|
end
|
|
|
|
% Set the marker size, font size, and other items.
|
|
msize = 5;
|
|
if 0
|
|
xaxisname = ' m = n = k';
|
|
fontsize = 12;
|
|
else
|
|
xaxisname = 'm = n = k';
|
|
fontsize = 20;
|
|
end
|
|
linesize = 0.8;
|
|
legend_loc = 'southeast';
|
|
|
|
%ax1 = subplot( rows, cols, theid );
|
|
ax1 = subplot_tight( rows, cols, theid, sp_margins );
|
|
|
|
% Hold the axes.
|
|
hold( ax1, 'on' );
|
|
|
|
% --------------------------------------------------------------------
|
|
|
|
x_axis( :, 1 ) = data_blis( :, 1 );
|
|
|
|
data_peak( 1, 1:2 ) = [ 0 max_perf_core ];
|
|
data_peak( 2, 1:2 ) = [ x_end max_perf_core ];
|
|
|
|
blis_ln = line( x_axis( :, 1 ), data_blis( :, flopscol ) / nth, ...
|
|
'Color',color_blis, 'LineStyle',lines_blis, ...
|
|
'LineWidth',linesize );
|
|
open_ln = line( x_axis( :, 1 ), data_open( :, flopscol ) / nth, ...
|
|
'Color',color_open, 'LineStyle',lines_open, ...
|
|
'LineWidth',linesize );
|
|
if data_eige(1,1) ~= -1
|
|
eige_ln = line( x_axis( :, 1 ), data_eige( :, flopscol ) / nth, ...
|
|
'Color',color_eige, 'LineStyle',lines_eige, ...
|
|
'LineWidth',linesize );
|
|
else
|
|
eige_ln = line( nan, nan, ...
|
|
'Color',color_eige, 'LineStyle',lines_eige, ...
|
|
'LineWidth',linesize );
|
|
end
|
|
vend_ln = line( x_axis( :, 1 ), data_vend( :, flopscol ) / nth, ...
|
|
'Color',color_vend, 'LineStyle',lines_vend, ...
|
|
'LineWidth',linesize );
|
|
|
|
|
|
xlim( ax1, [x_begin x_end] );
|
|
ylim( ax1, [y_begin y_end] );
|
|
|
|
if 6000 <= x_end && x_end < 10000
|
|
x_tick2 = x_end - 2000;
|
|
x_tick1 = x_tick2/2;
|
|
xticks( ax1, [ x_tick1 x_tick2 ] );
|
|
elseif 4000 <= x_end && x_end < 6000
|
|
x_tick2 = x_end - 1000;
|
|
x_tick1 = x_tick2/2;
|
|
xticks( ax1, [ x_tick1 x_tick2 ] );
|
|
elseif 2000 <= x_end && x_end < 3000
|
|
x_tick2 = x_end - 400;
|
|
x_tick1 = x_tick2/2;
|
|
xticks( ax1, [ x_tick1 x_tick2 ] );
|
|
end
|
|
|
|
if rows == 4 && cols == 5
|
|
|
|
if nth == 1 && theid == legend_plot_id
|
|
|
|
if with_eigen == 1
|
|
leg = legend( [ blis_ln open_ln eige_ln vend_ln ], ...
|
|
blis_legend, open_legend, eige_legend, vend_legend, ...
|
|
'Location', legend_loc );
|
|
else
|
|
leg = legend( [ blis_ln open_ln vend_ln ], ...
|
|
blis_legend, open_legend, vend_legend, ...
|
|
'Location', legend_loc );
|
|
end
|
|
set( leg,'Box','off','Color','none','Units','inches','FontSize',fontsize );
|
|
%set( leg,'Position',[3.40 8.70 1.9 1.0 ] ); % (0,2br)
|
|
set( leg,'Position',leg_pos_st );
|
|
|
|
elseif nth > 1 && theid == legend_plot_id
|
|
|
|
if with_eigen == 1
|
|
leg = legend( [ blis_ln open_ln eige_ln vend_ln ], ...
|
|
blis_legend, open_legend, eige_legend, vend_legend, ...
|
|
'Location', legend_loc );
|
|
else
|
|
leg = legend( [ blis_ln open_ln vend_ln ], ...
|
|
blis_legend, open_legend, vend_legend, ...
|
|
'Location', legend_loc );
|
|
end
|
|
set( leg,'Box','off','Color','none','Units','inches','FontSize',fontsize );
|
|
%set( leg,'Position',[16.51 9.70 1.9 1.0 ] ); % (1,4tr)
|
|
%set( leg,'Position',[13.08 9.70 1.9 1.0 ] ); % (1,3tr)
|
|
%set( leg,'Position',[13.08 13.09 1.9 1.0 ] ); % (0,3tr)
|
|
set( leg,'Position',leg_pos_mt );
|
|
end
|
|
end
|
|
|
|
set( ax1,'FontSize',fontsize );
|
|
set( ax1,'TitleFontSizeMultiplier',1.0 ); % default is 1.1.
|
|
box( ax1, 'on' );
|
|
|
|
titl = title( titlename );
|
|
set( titl, 'FontWeight', 'normal' ); % default font style is now 'bold'.
|
|
|
|
tpos = get( titl, 'Position' ); % default is to align across whole figure, not box.
|
|
%tpos(1) = tpos(1) + 100;
|
|
tpos(1) = tpos(1) + 40;
|
|
set( titl, 'Position', tpos ); % here we nudge it back to centered with box.
|
|
set( titl, 'FontSize', fontsize );
|
|
|
|
if theid > (rows-1)*cols
|
|
%tpos = get( xlab, 'Position' )
|
|
%tpos(2) = tpos(2) + 10;
|
|
%set( xlab, 'Position', tpos );
|
|
xlab = xlabel( ax1,xaxisname );
|
|
end
|
|
|
|
if mod(theid-1,cols) == 0
|
|
ylab = ylabel( ax1,yaxisname );
|
|
end
|
|
|
|
r_val = 0;
|
|
|