*> \brief <b> <ROUTINE> <brief description of the routine> </b>
**
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 
*
*> \htmlonly
*> Download <ROUTINE> + dependencies 
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/<routine>.f"> 
*> [TGZ]</a> 
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/<routine>.f"> 
*> [ZIP]</a> 
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/<routine>.f"> 
*> [TXT]</a>
*> \endhtmlonly
*
*  Definition:
*  ===========
*
*      <Type: SUBROUTINE, FUNCTION> <ROUTINE> ( <Args> )
*
*     .. Scalar Arguments ..
      <List of Scalar Arguments>
*     ..
*     .. Array Arguments ..
      <List of Array Arguments>
*       ..
*> \par Purpose:
*  =============
*>
*> \verbatim
*>
*>  <ROUTINE> computes <text>
*> \endverbatim
*
*  Arguments:
*  ==========
*
*> \param[in or in,out or out] <Arg1>
*> \verbatim
*>          <Arg1> is <TYPE>
*>          Description of the argument
*> \endverbatim
*>
*> \param[in or in,out or out] <Arg2>
*> \verbatim
*>          <Arg2> is <TYPE>
*>          Description of the argument
*> \endverbatim
*>
*> \par Further Details:
*  =====================
*>
*> \verbatim
*>
*>  <text>
*> \endverbatim
*>
*  Authors:
*  ========
*
*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date November 2011
*
*> \ingroup <doxygen group - see file trunk/DOCS/groups-usr.dox>
*
*  =====================================================================
      <Type: SUBROUTINE, FUNCTION> <ROUTINE> ( <Args> )
*  -- LAPACK <routine TYPE> routine (version <version number>)                            --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     <date>
*
*     .. Scalar Arguments ..
      <List of Scalar Arguments>
*     ..
*     .. Array Arguments ..
      <List of Array Arguments>
*     ..
* 
*  =====================================================================
*
*     .. Parameters ..
      <TYPE> <NAME>
      PARAMETER ( <NAME> = <VALUE>) 
*     ..
*     .. Local Scalars ..
*     <TYPE> <list of local scalars in alphabetical order>
*     ..
*     .. Local Arrays ..
*     <TYPE> <list of local arrays in alphabetical order>
*     ..
*     .. External Functions ..
      <TYPE>             <list of functions in alphabetical order>
      EXTERNAL           <list of functions in alphabetical order>
*     ..
*     .. External Subroutines ..
      EXTERNAL           <list of subroutines in alphabetical order>
*     ..
*     .. Intrinsic Functions ..
      INTRINSIC          <list of functions in alphabetical order>
*     ..
*
*     .. Executable Statements ..
*
*     Test the input parameters.
*
<code to test input parameters>
*
*     Computation
*
< code>
*
*     End of <ROUTINE>
*
      END