[kprint]=test14(kprint);

function [kprint]=test14(kprint);
persistent ipass lin lun nfail ; 

if isempty(ipass), ipass=0; end;
if isempty(lin), lin=0; end;
if isempty(lun), lun=0; end;
if isempty(nfail), nfail=0; end;
[lun ]=i1mach(2);
[lin ]=i1mach(1);
nfail = 0;
xermax(1000);
[lun]=xsetun(lun);
if( kprint<=1 )
xsetf(0);
else;
xsetf(1);
end;
[lun,kprint,ipass]=qcdrc(lun,kprint,ipass);
if( ipass==0 )
nfail = fix(nfail + 1);
end;
[lun,kprint,ipass]=qcdrd(lun,kprint,ipass);
if( ipass==0 )
nfail = fix(nfail + 1);
end;
[lun,kprint,ipass]=qcdrf(lun,kprint,ipass);
if( ipass==0 )
nfail = fix(nfail + 1);
end;
[lun,kprint,ipass]=qcdrj(lun,kprint,ipass);
if( ipass==0 )
nfail = fix(nfail + 1);
end;
if( nfail==0 )
writef(lun,['%s'], 'TEST14 passed all tests.');
else;
writef(lun,[ '\n ' ,' *** WARNING -- ','%5i',' TEST(S) FAILED IN PROGRAM TEST14  ***' ' \n'], nfail);
%format [' *** WARNING -- ',i5,' TEST(S) FAILED IN PROGRAM TEST14  ***');
end;
return;
end %subroutine test14