version 1.5, 2011/11/21 22:19:59
|
version 1.8, 2012/12/14 14:22:57
|
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 .. |