[isnum,srnamt,nout,kprint,fatal]=cchke2(isnum,srnamt,nout,kprint,fatal);

function [isnum,srnamt,nout,kprint,fatal]=cchke2(isnum,srnamt,nout,kprint,fatal);
persistent a alpha beta infot kontrl ralpha x y ; 

if isempty(infot), infot=0; end;
if isempty(alpha), alpha=0; end;
if isempty(beta), beta=0; end;
if isempty(ralpha), ralpha=0; end;
if isempty(kontrl), kontrl=0; end;
if isempty(a), a=zeros(1,1); end;
if isempty(x), x=zeros(1,1); end;
if isempty(y), y=zeros(1,1); end;
[kontrl]=xgetf(kontrl);
if( kprint<=2 )
xsetf(0);
else;
xsetf(1);
end;
if( isnum==2 )
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,x,dumvar10,beta,y]=cgbmv('/',0,0,0,0,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,x,dumvar10,beta,y]=cgbmv('N',-1,0,0,0,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,x,dumvar10,beta,y]=cgbmv('N',0,-1,0,0,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,x,dumvar10,beta,y]=cgbmv('N',0,0,-1,0,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,x,dumvar10,beta,y]=cgbmv('N',2,0,0,-1,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 8;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,x,dumvar10,beta,y]=cgbmv('N',0,0,1,0,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,x,dumvar10,beta,y]=cgbmv('N',0,0,0,0,alpha,a,1,x,0,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 13;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,x,dumvar10,beta,y]=cgbmv('N',0,0,0,0,alpha,a,1,x,1,beta,y,0);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==3 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,alpha,a,dumvar5,x,dumvar7,beta,y]=chemv('/',0,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,alpha,a,dumvar5,x,dumvar7,beta,y]=chemv('U',-1,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,alpha,a,dumvar5,x,dumvar7,beta,y]=chemv('U',2,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,alpha,a,dumvar5,x,dumvar7,beta,y]=chemv('U',0,alpha,a,1,x,0,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,alpha,a,dumvar5,x,dumvar7,beta,y]=chemv('U',0,alpha,a,1,x,1,beta,y,0);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==4 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,alpha,a,dumvar6,x,dumvar8,beta,y]=chbmv('/',0,0,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,alpha,a,dumvar6,x,dumvar8,beta,y]=chbmv('U',-1,0,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,alpha,a,dumvar6,x,dumvar8,beta,y]=chbmv('U',0,-1,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,alpha,a,dumvar6,x,dumvar8,beta,y]=chbmv('U',0,1,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 8;
xerclr;
[dumvar1,dumvar2,dumvar3,alpha,a,dumvar6,x,dumvar8,beta,y]=chbmv('U',0,0,alpha,a,1,x,0,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,alpha,a,dumvar6,x,dumvar8,beta,y]=chbmv('U',0,0,alpha,a,1,x,1,beta,y,0);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==5 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,alpha,a,x,dumvar6,beta,y]=chpmv('/',0,alpha,a,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,alpha,a,x,dumvar6,beta,y]=chpmv('U',-1,alpha,a,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,alpha,a,x,dumvar6,beta,y]=chpmv('U',0,alpha,a,x,0,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,alpha,a,x,dumvar6,beta,y]=chpmv('U',0,alpha,a,x,1,beta,y,0);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==6 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,dumvar6,x]=ctrmv('/','N','N',0,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,dumvar6,x]=ctrmv('U','/','N',0,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,dumvar6,x]=ctrmv('U','N','/',0,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,dumvar6,x]=ctrmv('U','N','N',-1,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,dumvar6,x]=ctrmv('U','N','N',2,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 8;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,dumvar6,x]=ctrmv('U','N','N',0,a,1,x,0);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==7 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,a,dumvar7,x]=ctbmv('/','N','N',0,0,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,a,dumvar7,x]=ctbmv('U','/','N',0,0,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,a,dumvar7,x]=ctbmv('U','N','/',0,0,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,a,dumvar7,x]=ctbmv('U','N','N',-1,0,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,a,dumvar7,x]=ctbmv('U','N','N',0,-1,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,a,dumvar7,x]=ctbmv('U','N','N',0,1,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,a,dumvar7,x]=ctbmv('U','N','N',0,0,a,1,x,0);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==8 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,x]=ctpmv('/','N','N',0,a,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,x]=ctpmv('U','/','N',0,a,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,x]=ctpmv('U','N','/',0,a,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,x]=ctpmv('U','N','N',-1,a,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,x]=ctpmv('U','N','N',0,a,x,0);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==9 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,dumvar6,x]=ctrsv('/','N','N',0,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,dumvar6,x]=ctrsv('U','/','N',0,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,dumvar6,x]=ctrsv('U','N','/',0,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,dumvar6,x]=ctrsv('U','N','N',-1,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,dumvar6,x]=ctrsv('U','N','N',2,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 8;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,dumvar6,x]=ctrsv('U','N','N',0,a,1,x,0);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==10 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,a,dumvar7,x]=ctbsv('/','N','N',0,0,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,a,dumvar7,x]=ctbsv('U','/','N',0,0,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,a,dumvar7,x]=ctbsv('U','N','/',0,0,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,a,dumvar7,x]=ctbsv('U','N','N',-1,0,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,a,dumvar7,x]=ctbsv('U','N','N',0,-1,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,a,dumvar7,x]=ctbsv('U','N','N',0,1,a,1,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,a,dumvar7,x]=ctbsv('U','N','N',0,0,a,1,x,0);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==11 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,x]=ctpsv('/','N','N',0,a,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,x]=ctpsv('U','/','N',0,a,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,x]=ctpsv('U','N','/',0,a,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,x]=ctpsv('U','N','N',-1,a,x,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,a,x]=ctpsv('U','N','N',0,a,x,0);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==12 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cgerc(-1,0,alpha,x,1,y,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cgerc(0,-1,alpha,x,1,y,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cgerc(0,0,alpha,x,0,y,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cgerc(0,0,alpha,x,1,y,0,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cgerc(2,0,alpha,x,1,y,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==13 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cgeru(-1,0,alpha,x,1,y,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cgeru(0,-1,alpha,x,1,y,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cgeru(0,0,alpha,x,0,y,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cgeru(0,0,alpha,x,1,y,0,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cgeru(2,0,alpha,x,1,y,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==14 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,ralpha,x,dumvar5,a]=cher('/',0,ralpha,x,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,ralpha,x,dumvar5,a]=cher('U',-1,ralpha,x,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,ralpha,x,dumvar5,a]=cher('U',0,ralpha,x,0,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,ralpha,x,dumvar5,a]=cher('U',2,ralpha,x,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==15 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,ralpha,x,dumvar5,a]=chpr('/',0,ralpha,x,1,a);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,ralpha,x,dumvar5,a]=chpr('U',-1,ralpha,x,1,a);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,ralpha,x,dumvar5,a]=chpr('U',0,ralpha,x,0,a);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==16 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cher2('/',0,alpha,x,1,y,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cher2('U',-1,alpha,x,1,y,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cher2('U',0,alpha,x,0,y,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cher2('U',0,alpha,x,1,y,0,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=cher2('U',2,alpha,x,1,y,1,a,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==17 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=chpr2('/',0,alpha,x,1,y,1,a);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=chpr2('U',-1,alpha,x,1,y,1,a);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=chpr2('U',0,alpha,x,0,y,1,a);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,alpha,x,dumvar5,y,dumvar7,a]=chpr2('U',0,alpha,x,1,y,0,a);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
else;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,alpha,a,dumvar6,x,dumvar8,beta,y]=cgemv('/',0,0,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,alpha,a,dumvar6,x,dumvar8,beta,y]=cgemv('N',-1,0,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,alpha,a,dumvar6,x,dumvar8,beta,y]=cgemv('N',0,-1,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,alpha,a,dumvar6,x,dumvar8,beta,y]=cgemv('N',2,0,alpha,a,1,x,1,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 8;
xerclr;
[dumvar1,dumvar2,dumvar3,alpha,a,dumvar6,x,dumvar8,beta,y]=cgemv('N',0,0,alpha,a,1,x,0,beta,y,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,alpha,a,dumvar6,x,dumvar8,beta,y]=cgemv('N',0,0,alpha,a,1,x,1,beta,y,0);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
end;
if( kprint>=2 )
xerdmp;
if( ~fatal )
writef(nout,[' ','%6s',' PASSED THE TESTS OF ERROR-EXITS' ' \n'], srnamt);
else;
writef(nout,[' ** ','%6s',' FAILED THE TESTS OF ERROR-EXITS ','**' ' \n'], srnamt);
end;
end;
[kontrl]=xsetf(kontrl);
return;
%format (' ',a6,' PASSED THE TESTS OF ERROR-EXITS');
%format (' ** ',a6,' FAILED THE TESTS OF ERROR-EXITS ','**');
end %subroutine cchke2