![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b ALASVM 00002 * 00003 * =========== DOCUMENTATION =========== 00004 * 00005 * Online html documentation available at 00006 * http://www.netlib.org/lapack/explore-html/ 00007 * 00008 * Definition: 00009 * =========== 00010 * 00011 * SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS ) 00012 * 00013 * .. Scalar Arguments .. 00014 * CHARACTER*3 TYPE 00015 * INTEGER NFAIL, NOUT, NRUN, NERRS 00016 * .. 00017 * 00018 * 00019 *> \par Purpose: 00020 * ============= 00021 *> 00022 *> \verbatim 00023 *> 00024 *> ALASVM prints a summary of results from one of the -DRV- routines. 00025 *> \endverbatim 00026 * 00027 * Arguments: 00028 * ========== 00029 * 00030 *> \param[in] TYPE 00031 *> \verbatim 00032 *> TYPE is CHARACTER*3 00033 *> The LAPACK path name. 00034 *> \endverbatim 00035 *> 00036 *> \param[in] NOUT 00037 *> \verbatim 00038 *> NOUT is INTEGER 00039 *> The unit number on which results are to be printed. 00040 *> NOUT >= 0. 00041 *> \endverbatim 00042 *> 00043 *> \param[in] NFAIL 00044 *> \verbatim 00045 *> NFAIL is INTEGER 00046 *> The number of tests which did not pass the threshold ratio. 00047 *> \endverbatim 00048 *> 00049 *> \param[in] NRUN 00050 *> \verbatim 00051 *> NRUN is INTEGER 00052 *> The total number of tests. 00053 *> \endverbatim 00054 *> 00055 *> \param[in] NERRS 00056 *> \verbatim 00057 *> NERRS is INTEGER 00058 *> The number of error messages recorded. 00059 *> \endverbatim 00060 * 00061 * Authors: 00062 * ======== 00063 * 00064 *> \author Univ. of Tennessee 00065 *> \author Univ. of California Berkeley 00066 *> \author Univ. of Colorado Denver 00067 *> \author NAG Ltd. 00068 * 00069 *> \date November 2011 00070 * 00071 *> \ingroup aux_lin 00072 * 00073 * ===================================================================== 00074 SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS ) 00075 * 00076 * -- LAPACK test routine (version 3.4.0) -- 00077 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00078 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00079 * November 2011 00080 * 00081 * .. Scalar Arguments .. 00082 CHARACTER*3 TYPE 00083 INTEGER NFAIL, NOUT, NRUN, NERRS 00084 * .. 00085 * 00086 * ===================================================================== 00087 * 00088 * .. Executable Statements .. 00089 * 00090 IF( NFAIL.GT.0 ) THEN 00091 WRITE( NOUT, FMT = 9999 )TYPE, NFAIL, NRUN 00092 ELSE 00093 WRITE( NOUT, FMT = 9998 )TYPE, NRUN 00094 END IF 00095 IF( NERRS.GT.0 ) THEN 00096 WRITE( NOUT, FMT = 9997 )NERRS 00097 END IF 00098 * 00099 9999 FORMAT( 1X, A3, ' drivers: ', I6, ' out of ', I6, 00100 $ ' tests failed to pass the threshold' ) 00101 9998 FORMAT( /1X, 'All tests for ', A3, ' drivers passed the ', 00102 $ 'threshold ( ', I6, ' tests run)' ) 00103 9997 FORMAT( 14X, I6, ' error messages recorded' ) 00104 RETURN 00105 * 00106 * End of ALASVM 00107 * 00108 END