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

function [isnum,srnamt,nout,kprint,fatal]=cchke3(isnum,srnamt,nout,kprint,fatal);
persistent a alpha b beta c infot kontrl ralpha rbeta ; 

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(rbeta), rbeta=0; end;
if isempty(kontrl), kontrl=0; end;
if isempty(a), a=zeros(2,1); end;
if isempty(b), b=zeros(2,1); end;
if isempty(c), c=zeros(2,1); end;
[kontrl]=xgetf(kontrl);
if( kprint<=2 )
xsetf(0);
else;
xsetf(1);
end;
if( isnum==2 )
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('/','U',0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('L','/',0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('L','U',-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('R','U',-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('L','L',-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('R','L',-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('L','U',0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('R','U',0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('L','L',0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('R','L',0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('L','U',2,0,alpha,a,1,b,2,beta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('R','U',0,2,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('L','L',2,0,alpha,a,1,b,2,beta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('R','L',0,2,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('L','U',2,0,alpha,a,2,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('R','U',2,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('L','L',2,0,alpha,a,2,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('R','L',2,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('L','U',2,0,alpha,a,2,b,2,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('R','U',2,0,alpha,a,1,b,2,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('L','L',2,0,alpha,a,2,b,2,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=chemm('R','L',2,0,alpha,a,1,b,2,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==3 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('/','U',0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('L','/',0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('L','U',-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('R','U',-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('L','L',-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('R','L',-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('L','U',0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('R','U',0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('L','L',0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('R','L',0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('L','U',2,0,alpha,a,1,b,2,beta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('R','U',0,2,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('L','L',2,0,alpha,a,1,b,2,beta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('R','L',0,2,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('L','U',2,0,alpha,a,2,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('R','U',2,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('L','L',2,0,alpha,a,2,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('R','L',2,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('L','U',2,0,alpha,a,2,b,2,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('R','U',2,0,alpha,a,1,b,2,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('L','L',2,0,alpha,a,2,b,2,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csymm('R','L',2,0,alpha,a,1,b,2,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==4 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('/','U','N','N',0,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','/','N','N',0,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','U','/','N',0,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','U','N','/',0,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','U','N','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','U','C','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','U','T','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','U','N','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','U','C','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','U','T','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','L','N','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','L','C','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','L','T','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','L','N','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','L','C','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','L','T','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','U','N','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','U','C','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','U','T','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','U','N','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','U','C','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','U','T','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','L','N','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','L','C','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','L','T','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','L','N','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','L','C','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','L','T','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','U','N','N',2,0,alpha,a,1,b,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','U','C','N',2,0,alpha,a,1,b,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','U','T','N',2,0,alpha,a,1,b,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','U','N','N',0,2,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','U','C','N',0,2,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','U','T','N',0,2,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','L','N','N',2,0,alpha,a,1,b,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','L','C','N',2,0,alpha,a,1,b,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','L','T','N',2,0,alpha,a,1,b,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','L','N','N',0,2,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','L','C','N',0,2,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','L','T','N',0,2,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','U','N','N',2,0,alpha,a,2,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','U','C','N',2,0,alpha,a,2,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','U','T','N',2,0,alpha,a,2,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','U','N','N',2,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','U','C','N',2,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','U','T','N',2,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','L','N','N',2,0,alpha,a,2,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','L','C','N',2,0,alpha,a,2,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('L','L','T','N',2,0,alpha,a,2,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','L','N','N',2,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','L','C','N',2,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrmm('R','L','T','N',2,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==5 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('/','U','N','N',0,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','/','N','N',0,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','U','/','N',0,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','U','N','/',0,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','U','N','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','U','C','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','U','T','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','U','N','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','U','C','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','U','T','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','L','N','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','L','C','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','L','T','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','L','N','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','L','C','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','L','T','N',-1,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','U','N','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','U','C','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','U','T','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','U','N','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','U','C','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','U','T','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','L','N','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','L','C','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','L','T','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','L','N','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','L','C','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 6;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','L','T','N',0,-1,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','U','N','N',2,0,alpha,a,1,b,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','U','C','N',2,0,alpha,a,1,b,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','U','T','N',2,0,alpha,a,1,b,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','U','N','N',0,2,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','U','C','N',0,2,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','U','T','N',0,2,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','L','N','N',2,0,alpha,a,1,b,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','L','C','N',2,0,alpha,a,1,b,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','L','T','N',2,0,alpha,a,1,b,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','L','N','N',0,2,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','L','C','N',0,2,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','L','T','N',0,2,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','U','N','N',2,0,alpha,a,2,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','U','C','N',2,0,alpha,a,2,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','U','T','N',2,0,alpha,a,2,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','U','N','N',2,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','U','C','N',2,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','U','T','N',2,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','L','N','N',2,0,alpha,a,2,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','L','C','N',2,0,alpha,a,2,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('L','L','T','N',2,0,alpha,a,2,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','L','N','N',2,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','L','C','N',2,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 11;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,dumvar6,alpha,a,dumvar9,b]=ctrsm('R','L','T','N',2,0,alpha,a,1,b,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==6 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('/','N',0,0,ralpha,a,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('U','T',0,0,ralpha,a,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('U','N',-1,0,ralpha,a,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('U','C',-1,0,ralpha,a,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('L','N',-1,0,ralpha,a,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('L','C',-1,0,ralpha,a,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('U','N',0,-1,ralpha,a,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('U','C',0,-1,ralpha,a,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('L','N',0,-1,ralpha,a,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('L','C',0,-1,ralpha,a,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('U','N',2,0,ralpha,a,1,rbeta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('U','C',0,2,ralpha,a,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('L','N',2,0,ralpha,a,1,rbeta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('L','C',0,2,ralpha,a,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('U','N',2,0,ralpha,a,2,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('U','C',2,0,ralpha,a,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('L','N',2,0,ralpha,a,2,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,ralpha,a,dumvar7,rbeta,c]=cherk('L','C',2,0,ralpha,a,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==7 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('/','N',0,0,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('U','C',0,0,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('U','N',-1,0,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('U','T',-1,0,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('L','N',-1,0,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('L','T',-1,0,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('U','N',0,-1,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('U','T',0,-1,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('L','N',0,-1,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('L','T',0,-1,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('U','N',2,0,alpha,a,1,beta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('U','T',0,2,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('L','N',2,0,alpha,a,1,beta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('L','T',0,2,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('U','N',2,0,alpha,a,2,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('U','T',2,0,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('L','N',2,0,alpha,a,2,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,beta,c]=csyrk('L','T',2,0,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==8 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('/','N',0,0,alpha,a,1,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('U','T',0,0,alpha,a,1,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('U','N',-1,0,alpha,a,1,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('U','C',-1,0,alpha,a,1,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('L','N',-1,0,alpha,a,1,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('L','C',-1,0,alpha,a,1,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('U','N',0,-1,alpha,a,1,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('U','C',0,-1,alpha,a,1,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('L','N',0,-1,alpha,a,1,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('L','C',0,-1,alpha,a,1,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('U','N',2,0,alpha,a,1,b,1,rbeta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('U','C',0,2,alpha,a,1,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('L','N',2,0,alpha,a,1,b,1,rbeta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('L','C',0,2,alpha,a,1,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('U','N',2,0,alpha,a,2,b,1,rbeta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('U','C',0,2,alpha,a,2,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('L','N',2,0,alpha,a,2,b,1,rbeta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('L','C',0,2,alpha,a,2,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('U','N',2,0,alpha,a,2,b,2,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('U','C',2,0,alpha,a,1,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('L','N',2,0,alpha,a,2,b,2,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,rbeta,c]=cher2k('L','C',2,0,alpha,a,1,b,1,rbeta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==9 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('/','N',0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('U','C',0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('U','N',-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('U','T',-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('L','N',-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('L','T',-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('U','N',0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('U','T',0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('L','N',0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('L','T',0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('U','N',2,0,alpha,a,1,b,1,beta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('U','T',0,2,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('L','N',2,0,alpha,a,1,b,1,beta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 7;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('L','T',0,2,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('U','N',2,0,alpha,a,2,b,1,beta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('U','T',0,2,alpha,a,2,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('L','N',2,0,alpha,a,2,b,1,beta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 9;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('L','T',0,2,alpha,a,2,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('U','N',2,0,alpha,a,2,b,2,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('U','T',2,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('L','N',2,0,alpha,a,2,b,2,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 12;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=csyr2k('L','T',2,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
else;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('/','N',0,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('/','C',0,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('/','T',0,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','/',0,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','/',0,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 2;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','/',0,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','N',-1,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','C',-1,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','T',-1,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','N',-1,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','C',-1,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','T',-1,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','N',-1,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','C',-1,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 3;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','T',-1,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','N',0,-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','C',0,-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','T',0,-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','N',0,-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','C',0,-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','T',0,-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','N',0,-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','C',0,-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 4;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','T',0,-1,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','N',0,0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','C',0,0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','T',0,0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','N',0,0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','C',0,0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','T',0,0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','N',0,0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','C',0,0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 5;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','T',0,0,-1,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 8;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','N',2,0,0,alpha,a,1,b,1,beta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 8;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','C',2,0,0,alpha,a,1,b,1,beta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 8;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','T',2,0,0,alpha,a,1,b,1,beta,c,2);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 8;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','N',0,0,2,alpha,a,1,b,2,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 8;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','C',0,0,2,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 8;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','T',0,0,2,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 8;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','N',0,0,2,alpha,a,1,b,2,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 8;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','C',0,0,2,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 8;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','T',0,0,2,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','N',0,0,2,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','N',0,0,2,alpha,a,2,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','N',0,0,2,alpha,a,2,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','C',0,2,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','C',0,2,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','C',0,2,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','T',0,2,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','T',0,2,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 10;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','T',0,2,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 13;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','N',2,0,0,alpha,a,2,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 13;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','C',2,0,0,alpha,a,2,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 13;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('N','T',2,0,0,alpha,a,2,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 13;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','N',2,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 13;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','C',2,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 13;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('C','T',2,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 13;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','N',2,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 13;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','C',2,0,0,alpha,a,1,b,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
infot = 13;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,dumvar5,alpha,a,dumvar8,b,dumvar10,beta,c]=cgemm('T','T',2,0,0,alpha,a,1,b,1,beta,c,1);
[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 cchke3