version 1.12, 2012/12/14 14:22:36
|
version 1.15, 2016/08/27 15:34:32
|
Line 81
|
Line 81
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date September 2012 |
*> \date June 2016 |
* |
* |
*> \ingroup auxOTHERcomputational |
*> \ingroup auxOTHERcomputational |
* |
* |
* ===================================================================== |
* ===================================================================== |
SUBROUTINE DLASRT( ID, N, D, INFO ) |
SUBROUTINE DLASRT( ID, N, D, INFO ) |
* |
* |
* -- LAPACK computational routine (version 3.4.2) -- |
* -- LAPACK computational routine (version 3.6.1) -- |
* -- 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..-- |
* September 2012 |
* June 2016 |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER ID |
CHARACTER ID |
Line 123
|
Line 123
|
* .. |
* .. |
* .. Executable Statements .. |
* .. Executable Statements .. |
* |
* |
* Test the input paramters. |
* Test the input parameters. |
* |
* |
INFO = 0 |
INFO = 0 |
DIR = -1 |
DIR = -1 |