00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013 #include "f2c.h"
00014 #include "blaswrap.h"
00015
00016
00017
00018 static integer c__1 = 1;
00019
00020 int dlasum_(char *type__, integer *iounit, integer *ie,
00021 integer *nrun)
00022 {
00023
00024 static char fmt_9999[] = "(1x,a3,a2,i4,a8,i5,a35)";
00025 static char fmt_9998[] = "(/1x,a14,a3,a23,i5,a11)";
00026
00027
00028 integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe(void);
00029
00030
00031 static cilist io___1 = { 0, 0, 0, fmt_9999, 0 };
00032 static cilist io___2 = { 0, 0, 0, fmt_9998, 0 };
00033
00034
00035
00036
00037
00038
00039
00040
00041
00042
00043
00044
00045
00046
00047
00048
00049
00050
00051
00052 if (*ie > 0) {
00053 io___1.ciunit = *iounit;
00054 s_wsfe(&io___1);
00055 do_fio(&c__1, type__, (ftnlen)3);
00056 do_fio(&c__1, ": ", (ftnlen)2);
00057 do_fio(&c__1, (char *)&(*ie), (ftnlen)sizeof(integer));
00058 do_fio(&c__1, " out of ", (ftnlen)8);
00059 do_fio(&c__1, (char *)&(*nrun), (ftnlen)sizeof(integer));
00060 do_fio(&c__1, " tests failed to pass the threshold", (ftnlen)35);
00061 e_wsfe();
00062 } else {
00063 io___2.ciunit = *iounit;
00064 s_wsfe(&io___2);
00065 do_fio(&c__1, "All tests for ", (ftnlen)14);
00066 do_fio(&c__1, type__, (ftnlen)3);
00067 do_fio(&c__1, " passed the threshold (", (ftnlen)23);
00068 do_fio(&c__1, (char *)&(*nrun), (ftnlen)sizeof(integer));
00069 do_fio(&c__1, " tests run)", (ftnlen)11);
00070 e_wsfe();
00071 }
00072 return 0;
00073
00074
00075
00076 }