version 1.4, 2011/11/21 20:43:23
|
version 1.7, 2012/08/22 09:48:42
|
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 .. |