Commit 7f6c8a8b authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

corrected error in pi4shift

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.

SVN Path:
SVN Revision: 5124
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent b25f33ce
...@@ -225,11 +225,11 @@ c ...@@ -225,11 +225,11 @@ c
elseif (pi4shift) then elseif (pi4shift) then
limit=nspa/2+1 limit=nspa/2+1
do i=2,limit do i=2,limit
ftarray(i)=sqrt(2.)*(1.d0,1.d0)*ftarray(i) ftarray(i)=sqrt(1/2.)*(1.d0,1.d0)*ftarray(i)
enddo enddo
ftarray(limit)=(0.d0,0.d0) ftarray(limit)=(0.d0,0.d0)
do i=limit+2,nspa do i=limit+2,nspa
ftarray(i)=sqrt(2.)*(0.d0,-1.d0)*ftarray(i) ftarray(i)=sqrt(1/2.)*(1.d0,-1.d0)*ftarray(i)
enddo enddo
elseif (envelope) then elseif (envelope) then
limit=nspa/2+1 limit=nspa/2+1
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment