( ) * * -- LAPACK (version ) -- * * -- Contributed by -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * -- -- * * .. Scalar Arguments .. * * .. * .. Array Arguments .. * .. * * Purpose * ======= * * computes * * Arguments * ========= * * (input, input/output or output) TYPE * Description of the argument * (input, input/output or output) TYPE * Description of the argument * * Further Details * =============== * * * * ===================================================================== * * .. Parameters .. PARAMETER ( = ) * .. * .. Local Scalars .. * * .. * .. Local Arrays .. * * .. * .. External Functions .. EXTERNAL * .. * .. External Subroutines .. EXTERNAL * .. * .. Intrinsic Functions .. INTRINSIC * .. * * .. Executable Statements .. * * Test the input parameters. * * * Computation * < code> * * End of * END .