alasmg.c
Go to the documentation of this file.
00001 /* alasmg.f -- translated by f2c (version 20061008).
00002    You must link the resulting object file with libf2c:
00003         on Microsoft Windows system, link with libf2c.lib;
00004         on Linux or Unix systems, link with .../path/to/libf2c.a -lm
00005         or, if you install libf2c.a in a standard place, with -lf2c -lm
00006         -- in that order, at the end of the command line, as in
00007                 cc *.o -lf2c -lm
00008         Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
00009 
00010                 http://www.netlib.org/f2c/libf2c.zip
00011 */
00012 
00013 #include "f2c.h"
00014 #include "blaswrap.h"
00015 
00016 /* Table of constant values */
00017 
00018 static integer c__1 = 1;
00019 
00020 /* Subroutine */ int alasmg_(char *type__, integer *nout, integer *nfail, 
00021         integer *nrun, integer *nerrs)
00022 {
00023     /* Format strings */
00024     static char fmt_9999[] = "(1x,a3,\002: \002,i6,\002 out of \002,i6,\002 "
00025             "tests failed to pass the threshold\002)";
00026     static char fmt_9998[] = "(/1x,\002All tests for \002,a3,\002 routines p"
00027             "assed the threshold (\002,i6,\002 tests run)\002)";
00028     static char fmt_9997[] = "(6x,i6,\002 error messages recorded\002)";
00029 
00030     /* Builtin functions */
00031     integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe(void);
00032 
00033     /* Fortran I/O blocks */
00034     static cilist io___1 = { 0, 0, 0, fmt_9999, 0 };
00035     static cilist io___2 = { 0, 0, 0, fmt_9998, 0 };
00036     static cilist io___3 = { 0, 0, 0, fmt_9997, 0 };
00037 
00038 
00039 
00040 /*  -- LAPACK test routine (version 3.1) -- */
00041 /*     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. */
00042 /*     November 2006 */
00043 
00044 /*     .. Scalar Arguments .. */
00045 /*     .. */
00046 
00047 /*  Purpose */
00048 /*  ======= */
00049 
00050 /*  ALASMG prints a summary of results from one of the -CHK- routines. */
00051 
00052 /*  Arguments */
00053 /*  ========= */
00054 
00055 /*  TYPE    (input) CHARACTER*3 */
00056 /*          The LAPACK path name. */
00057 
00058 /*  NOUT    (input) INTEGER */
00059 /*          The unit number on which results are to be printed. */
00060 /*          NOUT >= 0. */
00061 
00062 /*  NFAIL   (input) INTEGER */
00063 /*          The number of tests which did not pass the threshold ratio. */
00064 
00065 /*  NRUN    (input) INTEGER */
00066 /*          The total number of tests. */
00067 
00068 /*  NERRS   (input) INTEGER */
00069 /*          The number of error messages recorded. */
00070 
00071 /* ====================================================================== */
00072 
00073 /*     .. Executable Statements .. */
00074 
00075     if (*nfail > 0) {
00076         io___1.ciunit = *nout;
00077         s_wsfe(&io___1);
00078         do_fio(&c__1, type__, (ftnlen)3);
00079         do_fio(&c__1, (char *)&(*nfail), (ftnlen)sizeof(integer));
00080         do_fio(&c__1, (char *)&(*nrun), (ftnlen)sizeof(integer));
00081         e_wsfe();
00082     } else {
00083         io___2.ciunit = *nout;
00084         s_wsfe(&io___2);
00085         do_fio(&c__1, type__, (ftnlen)3);
00086         do_fio(&c__1, (char *)&(*nrun), (ftnlen)sizeof(integer));
00087         e_wsfe();
00088     }
00089     if (*nerrs > 0) {
00090         io___3.ciunit = *nout;
00091         s_wsfe(&io___3);
00092         do_fio(&c__1, (char *)&(*nerrs), (ftnlen)sizeof(integer));
00093         e_wsfe();
00094     }
00095 
00096     return 0;
00097 
00098 /*     End of ALASMG */
00099 
00100 } /* alasmg_ */


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:55:14