|
version 1.5, 2011/11/21 22:19:36
|
version 1.6, 2012/07/31 11:06:36
|
|
Line 322
|
Line 322
|
| * =================================================================== |
* =================================================================== |
| * |
* |
| * .. Parameters .. |
* .. Parameters .. |
| DOUBLE PRECISION REALONE |
DOUBLE PRECISION ONE, ZERO |
| PARAMETER ( REALONE = 1.0D0 ) |
PARAMETER ( ONE = 1.0D0, |
| DOUBLE PRECISION NEGONE, ONE, PIOVER2, ZERO |
|
| PARAMETER ( NEGONE = -1.0D0, ONE = 1.0D0, |
|
| $ PIOVER2 = 1.57079632679489662D0, |
|
| $ ZERO = 0.0D0 ) |
$ ZERO = 0.0D0 ) |
| * .. |
* .. |
| * .. Local Scalars .. |
* .. Local Scalars .. |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dorcsd.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack