\brief \b ESMF_DLASQ5 \htmlonly Download ESMF_DLASQ5 + dependencies [TGZ] [ZIP] [TXT] \endhtmlonly \par Purpose:
\verbatim
ESMF_DLASQ5 computes one dqds transform in ping-pong form, one version for IEEE machines another for non IEEE machines. \endverbatim \param[in] I0 \verbatim I0 is INTEGER First index. \endverbatim
\param[in] N0 \verbatim N0 is INTEGER Last index. \endverbatim
\param[in] Z \verbatim Z is DOUBLE PRECISION array, dimension ( 4N ) Z holds the qd array. EMIN is stored in Z(4N0) to avoid an extra argument. \endverbatim
\param[in] PP \verbatim PP is INTEGER PP=0 for ping, PP=1 for pong. \endverbatim
\param[in] TAU \verbatim TAU is DOUBLE PRECISION This is the shift. \endverbatim
\param[out] DMIN \verbatim DMIN is DOUBLE PRECISION Minimum value of d. \endverbatim
\param[out] DMIN1 \verbatim DMIN1 is DOUBLE PRECISION Minimum value of d, excluding D( N0 ). \endverbatim
\param[out] DMIN2 \verbatim DMIN2 is DOUBLE PRECISION Minimum value of d, excluding D( N0 ) and D( N0-1 ). \endverbatim
\param[out] DN \verbatim DN is DOUBLE PRECISION d(N0), the last value of d. \endverbatim
\param[out] DNM1 \verbatim DNM1 is DOUBLE PRECISION d(N0-1). \endverbatim
\param[out] DNM2 \verbatim DNM2 is DOUBLE PRECISION d(N0-2). \endverbatim
\param[in] IEEE \verbatim IEEE is LOGICAL Flag for IEEE or non IEEE arithmetic. \endverbatim \author Univ. of Tennessee \author Univ. of California Berkeley \author Univ. of Colorado Denver \author NAG Ltd. \date November 2011 \ingroup auxOTHERcomputational
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer | :: | I0 | ||||
| integer | :: | N0 | ||||
| double precision | :: | Z(*) | ||||
| integer | :: | PP | ||||
| double precision | :: | TAU | ||||
| double precision | :: | DMIN | ||||
| double precision | :: | DMIN1 | ||||
| double precision | :: | DMIN2 | ||||
| double precision | :: | DN | ||||
| double precision | :: | DNM1 | ||||
| double precision | :: | DNM2 | ||||
| logical | :: | IEEE |