blob: 24a103ffc55c2de7abd69905c083970d36af97b0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
c
c-----------------------------------------------------------------------
c subroutine: fr2tr
c radix 2 iteration subroutine
c-----------------------------------------------------------------------
c
subroutine fr2tr(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
|
