1 subroutine passf4 (ido,l1,cc,ch,wa1,wa2,wa3)
3 1 wa1(1) ,wa2(1) ,wa3(1)
4 if (ido .ne. 2) go to 102
6 ti1 = cc(2,1,k)-cc(2,3,k)
7 ti2 = cc(2,1,k)+cc(2,3,k)
8 tr4 = cc(2,2,k)-cc(2,4,k)
9 ti3 = cc(2,2,k)+cc(2,4,k)
10 tr1 = cc(1,1,k)-cc(1,3,k)
11 tr2 = cc(1,1,k)+cc(1,3,k)
12 ti4 = cc(1,4,k)-cc(1,2,k)
13 tr3 = cc(1,2,k)+cc(1,4,k)
26 ti1 = cc(i,1,k)-cc(i,3,k)
27 ti2 = cc(i,1,k)+cc(i,3,k)
28 ti3 = cc(i,2,k)+cc(i,4,k)
29 tr4 = cc(i,2,k)-cc(i,4,k)
30 tr1 = cc(i-1,1,k)-cc(i-1,3,k)
31 tr2 = cc(i-1,1,k)+cc(i-1,3,k)
32 ti4 = cc(i-1,4,k)-cc(i-1,2,k)
33 tr3 = cc(i-1,2,k)+cc(i-1,4,k)
42 ch(i-1,k,2) = wa1(i-1)*cr2+wa1(i)*ci2
43 ch(i,k,2) = wa1(i-1)*ci2-wa1(i)*cr2
44 ch(i-1,k,3) = wa2(i-1)*cr3+wa2(i)*ci3
45 ch(i,k,3) = wa2(i-1)*ci3-wa2(i)*cr3
46 ch(i-1,k,4) = wa3(i-1)*cr4+wa3(i)*ci4
47 ch(i,k,4) = wa3(i-1)*ci4-wa3(i)*cr4
std::string dimension(void) const
subroutine passf4(ido, l1, cc, ch, wa1, wa2, wa3)