version 1.19, 2018/05/29 07:17:55
|
version 1.20, 2023/08/07 08:38:53
|
Line 84
|
Line 84
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date January 2013 |
|
* |
|
*> \ingroup doubleOTHERauxiliary |
*> \ingroup doubleOTHERauxiliary |
* |
* |
* ===================================================================== |
* ===================================================================== |
SUBROUTINE DLADIV( A, B, C, D, P, Q ) |
SUBROUTINE DLADIV( A, B, C, D, P, Q ) |
* |
* |
* -- 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..-- |
* January 2013 |
|
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
DOUBLE PRECISION A, B, C, D, P, Q |
DOUBLE PRECISION A, B, C, D, P, Q |
Line 178
|
Line 175
|
|
|
SUBROUTINE DLADIV1( A, B, C, D, P, Q ) |
SUBROUTINE DLADIV1( A, B, C, D, P, Q ) |
* |
* |
* -- 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..-- |
* January 2013 |
|
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
DOUBLE PRECISION A, B, C, D, P, Q |
DOUBLE PRECISION A, B, C, D, P, Q |
Line 218
|
Line 214
|
|
|
DOUBLE PRECISION FUNCTION DLADIV2( A, B, C, D, R, T ) |
DOUBLE PRECISION FUNCTION DLADIV2( A, B, C, D, R, T ) |
* |
* |
* -- 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..-- |
* January 2013 |
|
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
DOUBLE PRECISION A, B, C, D, R, T |
DOUBLE PRECISION A, B, C, D, R, T |
Line 251
|
Line 246
|
* |
* |
RETURN |
RETURN |
* |
* |
* End of DLADIV12 |
* End of DLADIV2 |
* |
* |
END |
END |