version 1.17, 2018/05/29 07:18:29
|
version 1.18, 2023/08/07 08:39:31
|
Line 81
|
Line 81
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date December 2016 |
|
* |
|
*> \ingroup complex16OTHERauxiliary |
*> \ingroup complex16OTHERauxiliary |
* |
* |
*> \par Further Details: |
*> \par Further Details: |
Line 99
|
Line 97
|
* ===================================================================== |
* ===================================================================== |
SUBROUTINE ZLARNV( IDIST, ISEED, N, X ) |
SUBROUTINE ZLARNV( IDIST, ISEED, N, X ) |
* |
* |
* -- LAPACK auxiliary routine (version 3.7.0) -- |
* -- LAPACK auxiliary routine -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* December 2016 |
|
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
INTEGER IDIST, N |
INTEGER IDIST, N |
Line 120
|
Line 117
|
INTEGER LV |
INTEGER LV |
PARAMETER ( LV = 128 ) |
PARAMETER ( LV = 128 ) |
DOUBLE PRECISION TWOPI |
DOUBLE PRECISION TWOPI |
PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) |
PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) |
* .. |
* .. |
* .. Local Scalars .. |
* .. Local Scalars .. |
INTEGER I, IL, IV |
INTEGER I, IL, IV |