[kprint]=header(kprint);

function [kprint]=header(kprint);
persistent firstCall l ; if isempty(l),l={};end; if isempty(firstCall),firstCall=1;end; 

global combla_2; if isempty(combla_2), combla_2=0; end;
global combla_4; if isempty(combla_4), combla_4=0; end;
global combla_5; if isempty(combla_5), combla_5=0; end;
global combla_6; if isempty(combla_6), combla_6=0; end;
global combla_3; if isempty(combla_3), combla_3=0; end;
global combla_1; if isempty(combla_1), combla_1=0; end;
% common :: ;
global combla_7; if isempty(combla_7), combla_7=false; end;
%% common /combla/ nprint , icase , n , incx , incy , mode , pass;
%% common /combla/ combla_1 , combla_2 , combla_3 , combla_4 , combla_5 , combla_6 , combla_7;
if isempty(l), l=cell(1,38); end;
if firstCall,   l{1}='SDOT';  end;
if firstCall,   l{2}='DSDOT';  end;
if firstCall,   l{3}='SDSDOT';  end;
if firstCall,   l{4}='DDOT';  end;
if firstCall,   l{5}='DQDOTI';  end;
if firstCall,   l{6}='DQDOTA';  end;
if firstCall,   l{7}='CDOTC';  end;
if firstCall,   l{8}='CDOTU';  end;
if firstCall,   l{9}='SAXPY';  end;
if firstCall,   l{10}='DAXPY';  end;
if firstCall,   l{11}='CAXPY';  end;
if firstCall,   l{12}='SROTG';  end;
if firstCall,   l{13}='DROTG';  end;
if firstCall,   l{14}='SROT';  end;
if firstCall,   l{15}='DROT';  end;
if firstCall,   l{16}='SROTMG';  end;
if firstCall,   l{17}='DROTMG';  end;
if firstCall,   l{18}='SROTM';  end;
if firstCall,   l{19}='DROTM';  end;
if firstCall,   l{20}='SCOPY';  end;
if firstCall,   l{21}='DCOPY';  end;
if firstCall,   l{22}='CCOPY';  end;
if firstCall,   l{23}='SSWAP';  end;
if firstCall,   l{24}='DSWAP';  end;
if firstCall,   l{25}='CSWAP';  end;
if firstCall,   l{26}='SNRM2';  end;
if firstCall,   l{27}='DNRM2';  end;
if firstCall,   l{28}='SCNRM2';  end;
if firstCall,   l{29}='SASUM';  end;
if firstCall,   l{30}='DASUM';  end;
if firstCall,   l{31}='SCASUM';  end;
if firstCall,   l{32}='SSCAL';  end;
if firstCall,   l{33}='DSCAL';  end;
if firstCall,   l{34}='CSCAL';  end;
if firstCall,   l{35}='CSSCAL';  end;
if firstCall,   l{36}='ISAMAX';  end;
if firstCall,   l{37}='IDAMAX';  end;
if firstCall,   l{38}='ICAMAX';  end;
firstCall=0;
if( kprint>=2 )
writef(combla_1,[' Test of subprogram numbermlv','%3i',repmat(' ',1,2),'%s' ' \n'], combla_2 , l{combla_2});
end;
%format (' Test of subprogram numbermlv',i3,2X,a);
return;
end %subroutine header