|
version 1.8, 2011/11/21 22:19:29
|
version 1.9, 2012/07/31 11:06:35
|
|
Line 254
|
Line 254
|
| * ===================================================================== |
* ===================================================================== |
| * |
* |
| * .. Local Parameters .. |
* .. Local Parameters .. |
| DOUBLE PRECISION ZERO, HALF, ONE, TWO |
DOUBLE PRECISION ZERO, HALF, ONE |
| PARAMETER ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0, |
PARAMETER ( ZERO = 0.0D0, HALF = 0.5D0, ONE = 1.0D0 ) |
| $ TWO = 2.0D0 ) |
|
| * .. |
* .. |
| * .. Local Scalars .. |
* .. Local Scalars .. |
| DOUBLE PRECISION AAPP, AAPP0, AAPQ, AAQQ, APOAQ, AQOAP, BIG, |
DOUBLE PRECISION AAPP, AAPP0, AAPQ, AAQQ, APOAQ, AQOAP, BIG, |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dgsvj1.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack