diff options
Diffstat (limited to 'TESTING/EIG/zchkbk.f')
-rw-r--r-- | TESTING/EIG/zchkbk.f | 70 |
1 files changed, 56 insertions, 14 deletions
diff --git a/TESTING/EIG/zchkbk.f b/TESTING/EIG/zchkbk.f index 4a735772..7960e136 100644 --- a/TESTING/EIG/zchkbk.f +++ b/TESTING/EIG/zchkbk.f @@ -1,28 +1,70 @@ - SUBROUTINE ZCHKBK( NIN, NOUT ) +*> \brief \b ZCHKBK * -* -- LAPACK test routine (version 3.1) -- -* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* November 2006 +* =========== DOCUMENTATION =========== * -* .. Scalar Arguments .. - INTEGER NIN, NOUT -* .. +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * +* Definition +* ========== +* +* SUBROUTINE ZCHKBK( NIN, NOUT ) +* +* .. Scalar Arguments .. +* INTEGER NIN, NOUT +* .. +* * Purpose * ======= * -* ZCHKBK tests ZGEBAK, a routine for backward transformation of -* the computed right or left eigenvectors if the orginal matrix -* was preprocessed by balance subroutine ZGEBAL. +*>\details \b Purpose: +*>\verbatim +*> +*> ZCHKBK tests ZGEBAK, a routine for backward transformation of +*> the computed right or left eigenvectors if the orginal matrix +*> was preprocessed by balance subroutine ZGEBAL. +*> +*>\endverbatim * * Arguments * ========= * -* NIN (input) INTEGER -* The logical unit number for input. NIN > 0. +*> \param[in] NIN +*> \verbatim +*> NIN is INTEGER +*> The logical unit number for input. NIN > 0. +*> \endverbatim +*> +*> \param[in] NOUT +*> \verbatim +*> NOUT is INTEGER +*> The logical unit number for output. NOUT > 0. +*> \endverbatim +*> +* +* Authors +* ======= +* +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. +* +*> \date November 2011 * -* NOUT (input) INTEGER -* The logical unit number for output. NOUT > 0. +*> \ingroup complex16_eig +* +* ===================================================================== + SUBROUTINE ZCHKBK( NIN, NOUT ) +* +* -- LAPACK test routine (version 3.1) -- +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* November 2011 +* +* .. Scalar Arguments .. + INTEGER NIN, NOUT +* .. * * ====================================================================== * |