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