blob: 510763fe3441f10a65f9912d78d6c7dee96c51be (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
c
c-----------------------------------------------------------------------
c subroutine: r2tr
c radix 2 iteration subroutine
c-----------------------------------------------------------------------
c
c
subroutine r2tr(int, b0, b1)
dimension b0(2), b1(2)
do 10 k=1,int
t = b0(k) + b1(k)
b1(k) = b0(k) - b1(k)
b0(k) = t
10 continue
return
end
|
