![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b SLASUM 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 SLASUM( TYPE, IOUNIT, IE, NRUN ) 00012 * 00013 * .. Scalar Arguments .. 00014 * CHARACTER*3 TYPE 00015 * INTEGER IE, IOUNIT, NRUN 00016 * .. 00017 * 00018 * Purpose 00019 * ======= 00020 * 00021 *\details \b Purpose: 00022 *\verbatim 00023 * 00024 * SLASUM prints a summary of the results from one of the test routines. 00025 * 00026 * ===================================================================== 00027 * 00028 * Authors: 00029 * ======== 00030 * 00031 * \author Univ. of Tennessee 00032 * \author Univ. of California Berkeley 00033 * \author Univ. of Colorado Denver 00034 * \author NAG Ltd. 00035 * 00036 * \date November 2011 00037 * 00038 * \ingroup single_eig 00039 * 00040 * ===================================================================== 00041 SUBROUTINE SLASUM( TYPE, IOUNIT, IE, NRUN ) 00042 * 00043 * -- LAPACK test routine (version 3.4.0) -- 00044 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00045 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00046 * November 2011 00047 * 00048 * .. Scalar Arguments .. 00049 CHARACTER*3 TYPE 00050 INTEGER IE, IOUNIT, NRUN 00051 * .. 00052 * 00053 * 00054 * .. Executable Statements .. 00055 * 00056 IF( IE.GT.0 ) THEN 00057 WRITE( IOUNIT, FMT = 9999 )TYPE, ': ', IE, ' out of ', NRUN, 00058 $ ' tests failed to pass the threshold' 00059 ELSE 00060 WRITE( IOUNIT, FMT = 9998 )'All tests for ', TYPE, 00061 $ ' passed the threshold ( ', NRUN, ' tests run)' 00062 END IF 00063 9999 FORMAT( 1X, A3, A2, I4, A8, I5, A35 ) 00064 9998 FORMAT( / 1X, A14, A3, A24, I5, A11 ) 00065 RETURN 00066 * 00067 * End of SLASUM 00068 * 00069 END