slatecML(varargin)

function slatecML(varargin)
clear global; clear functions;

persistent kprint ; 

if isempty(kprint), kprint = 1; end;
timestamp();
writef(1,['%s','\n'], ' ');
writef(1,['%s','\n'], 'SLATEC_PRB');
writef(1,['%s','\n'], '  Tests for the SLATEC library.');
%%%[kprint]=test01(kprint);
%%%[kprint]=test02(kprint);
%%%[kprint]=test03(kprint);
%%%[kprint]=test04(kprint);
%%%[kprint]=test05(kprint);
%%%[kprint]=test06(kprint);
%%%[kprint]=test07(kprint);
%%%[kprint]=test08(kprint);
%%%[kprint]=test09(kprint);
%%%[kprint]=test10(kprint);
%%%[kprint]=test11(kprint);
%%%[kprint]=test12(kprint);
%%%[kprint]=test13(kprint);
%%%[kprint]=test14(kprint);
%%%[kprint]=test15(kprint);
%%%[kprint]=test16(kprint);
%%%[kprint]=test17(kprint);
%%%[kprint]=test18(kprint);
%%%[kprint]=test19(kprint);
%%%[kprint]=test20(kprint);
%%%[kprint]=test21(kprint);
%%%[kprint]=test22(kprint);
%%%[kprint]=test23(kprint);
%%%%Barrowes - commented this out because of complex/real passing to cgeev and sgeev
%%%%CALL TEST24(kprint)
%%%%Barrowes - commented these out because of wacky array bounds handling
%%%%CALL TEST25(kprint)
%%%%CALL TEST26(kprint)
%%%%CALL TEST27(kprint)
%%%%CALL TEST28(kprint)
%%%[kprint]=test29(kprint);
%%%[kprint]=test30(kprint);
%%%[kprint]=test31(kprint);
%%%[kprint]=test32(kprint);
%%%[kprint]=test33(kprint);
%%%[kprint]=test34(kprint);
%%%[kprint]=test35(kprint);
%%%[kprint]=test36(kprint);
%%%[kprint]=test37(kprint);
%%%[kprint]=test38(kprint);
%%%[kprint]=test39(kprint);
%%%[kprint]=test40(kprint);
%%%[kprint]=test41(kprint);
%%%[kprint]=test42(kprint);
%%%%Barrowes - commented this out because of games played in commonblock debdf1 (eg stod and lsod)
%%%%CALL TEST43(kprint)
%%%[kprint]=test44(kprint);
%%%[kprint]=test45(kprint);
%%%[kprint]=test46(kprint);
%%%[kprint]=test47(kprint);
%%%[kprint]=test48(kprint);
%%%[kprint]=test49(kprint);
%%%[kprint]=test50(kprint);
%%%[kprint]=test51(kprint);
%%%[kprint]=test52(kprint);
%%%[kprint]=test53(kprint);
[kprint]=test54(kprint);
writef(1,['%s','\n'], ' ');
writef(1,['%s','\n'], 'SLATEC_PRB');
writef(1,['%s','\n'], '  Normal end of execution.');
writef(1,['%s','\n'], ' ');
timestamp();
end %program main