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

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

if isempty(infot), infot=0; end;
if isempty(alpha), alpha=0; end;
if isempty(beta), beta=0; end;
if isempty(kontrl), kontrl=0; end;
if isempty(a), a=zeros(1,1); end;
if isempty(b), b=zeros(1,1); end;
if isempty(c), c=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,alpha,a,dumvar7,b,dumvar9,beta,c]=dsymm('/','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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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]=dsymm('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,dumvar5,dumvar6,alpha,a,dumvar9,b]=dtrmm('/','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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('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]=dtrmm('R','L','T','N',2,0,alpha,a,1,b,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]=dtrsm('/','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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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]=dtrsm('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,alpha,a,dumvar7,beta,c]=dsyrk('/','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]=dsyrk('U','/',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]=dsyrk('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]=dsyrk('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]=dsyrk('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]=dsyrk('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]=dsyrk('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]=dsyrk('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]=dsyrk('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]=dsyrk('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]=dsyrk('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]=dsyrk('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]=dsyrk('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]=dsyrk('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]=dsyrk('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]=dsyrk('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]=dsyrk('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]=dsyrk('L','T',2,0,alpha,a,1,beta,c,1);
[srnamt,infot,nout,fatal,kprint]=chkxer(srnamt,infot,nout,fatal,kprint);
elseif( isnum==6 ) ;
infot = 1;
xerclr;
[dumvar1,dumvar2,dumvar3,dumvar4,alpha,a,dumvar7,b,dumvar9,beta,c]=dsyr2k('/','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]=dsyr2k('U','/',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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dsyr2k('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]=dgemm('/','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]=dgemm('/','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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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]=dgemm('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 dchke3