1 subroutine passf3 (ido,l1,cc,ch,wa1,wa2)
4 data taur,taui /-.5,-.866025403784439/
5 if (ido .ne. 2) go to 102
7 tr2 = cc(1,2,k)+cc(1,3,k)
8 cr2 = cc(1,1,k)+taur*tr2
9 ch(1,k,1) = cc(1,1,k)+tr2
10 ti2 = cc(2,2,k)+cc(2,3,k)
11 ci2 = cc(2,1,k)+taur*ti2
12 ch(2,k,1) = cc(2,1,k)+ti2
13 cr3 = taui*(cc(1,2,k)-cc(1,3,k))
14 ci3 = taui*(cc(2,2,k)-cc(2,3,k))
23 tr2 = cc(i-1,2,k)+cc(i-1,3,k)
24 cr2 = cc(i-1,1,k)+taur*tr2
25 ch(i-1,k,1) = cc(i-1,1,k)+tr2
26 ti2 = cc(i,2,k)+cc(i,3,k)
27 ci2 = cc(i,1,k)+taur*ti2
28 ch(i,k,1) = cc(i,1,k)+ti2
29 cr3 = taui*(cc(i-1,2,k)-cc(i-1,3,k))
30 ci3 = taui*(cc(i,2,k)-cc(i,3,k))
35 ch(i,k,2) = wa1(i-1)*di2-wa1(i)*dr2
36 ch(i-1,k,2) = wa1(i-1)*dr2+wa1(i)*di2
37 ch(i,k,3) = wa2(i-1)*di3-wa2(i)*dr3
38 ch(i-1,k,3) = wa2(i-1)*dr3+wa2(i)*di3
subroutine passf3(ido, l1, cc, ch, wa1, wa2)
std::string dimension(void) const