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:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 5124
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent b25f33ce
......@@ -225,11 +225,11 @@ c
elseif (pi4shift) then
limit=nspa/2+1
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
ftarray(limit)=(0.d0,0.d0)
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
elseif (envelope) then
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