Lines Matching refs:CC
1 SUBROUTINE VRADF4 (MP,IDO,L1,CC,CH,MDIMC,WA1,WA2,WA3) argument
5 DIMENSION CC(MDIMC,IDO,L1,4) ,CH(MDIMC,IDO,4,L1) ,
10 CH(M,1,1,K) = (CC(M,1,K,2)+CC(M,1,K,4))
11 1 +(CC(M,1,K,1)+CC(M,1,K,3))
12 CH(M,IDO,4,K) = (CC(M,1,K,1)+CC(M,1,K,3))
13 1 -(CC(M,1,K,2)+CC(M,1,K,4))
14 CH(M,IDO,2,K) = CC(M,1,K,1)-CC(M,1,K,3)
15 CH(M,1,3,K) = CC(M,1,K,4)-CC(M,1,K,2)
24 CH(M,I-1,1,K) = ((WA1(I-2)*CC(M,I-1,K,2)+WA1(I-1)*
25 1 CC(M,I,K,2))+(WA3(I-2)*CC(M,I-1,K,4)+WA3(I-1)*
26 1 CC(M,I,K,4)))+(CC(M,I-1,K,1)+(WA2(I-2)*CC(M,I-1,K,3)+
27 1 WA2(I-1)*CC(M,I,K,3)))
28 CH(M,IC-1,4,K) = (CC(M,I-1,K,1)+(WA2(I-2)*CC(M,I-1,K,3)+
29 1 WA2(I-1)*CC(M,I,K,3)))-((WA1(I-2)*CC(M,I-1,K,2)+
30 1 WA1(I-1)*CC(M,I,K,2))+(WA3(I-2)*CC(M,I-1,K,4)+
31 1 WA3(I-1)*CC(M,I,K,4)))
32 CH(M,I,1,K) = ((WA1(I-2)*CC(M,I,K,2)-WA1(I-1)*
33 1 CC(M,I-1,K,2))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)*
34 1 CC(M,I-1,K,4)))+(CC(M,I,K,1)+(WA2(I-2)*CC(M,I,K,3)-
35 1 WA2(I-1)*CC(M,I-1,K,3)))
36 CH(M,IC,4,K) = ((WA1(I-2)*CC(M,I,K,2)-WA1(I-1)*
37 1 CC(M,I-1,K,2))+(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)*
38 1 CC(M,I-1,K,4)))-(CC(M,I,K,1)+(WA2(I-2)*CC(M,I,K,3)-
39 1 WA2(I-1)*CC(M,I-1,K,3)))
40 CH(M,I-1,3,K) = ((WA1(I-2)*CC(M,I,K,2)-WA1(I-1)*
41 1 CC(M,I-1,K,2))-(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)*
42 1 CC(M,I-1,K,4)))+(CC(M,I-1,K,1)-(WA2(I-2)*CC(M,I-1,K,3)+
43 1 WA2(I-1)*CC(M,I,K,3)))
44 CH(M,IC-1,2,K) = (CC(M,I-1,K,1)-(WA2(I-2)*CC(M,I-1,K,3)+
45 1 WA2(I-1)*CC(M,I,K,3)))-((WA1(I-2)*CC(M,I,K,2)-WA1(I-1)*
46 1 CC(M,I-1,K,2))-(WA3(I-2)*CC(M,I,K,4)-WA3(I-1)*
47 1 CC(M,I-1,K,4)))
48 CH(M,I,3,K) = ((WA3(I-2)*CC(M,I-1,K,4)+WA3(I-1)*
49 1 CC(M,I,K,4))-(WA1(I-2)*CC(M,I-1,K,2)+WA1(I-1)*
50 1 CC(M,I,K,2)))+(CC(M,I,K,1)-(WA2(I-2)*CC(M,I,K,3)-
51 1 WA2(I-1)*CC(M,I-1,K,3)))
52 CH(M,IC,2,K) = ((WA3(I-2)*CC(M,I-1,K,4)+WA3(I-1)*
53 1 CC(M,I,K,4))-(WA1(I-2)*CC(M,I-1,K,2)+WA1(I-1)*
54 1 CC(M,I,K,2)))-(CC(M,I,K,1)-(WA2(I-2)*CC(M,I,K,3)-WA2(I-1)*
55 1 CC(M,I-1,K,3)))
63 CH(M,IDO,1,K) = (HSQT2*(CC(M,IDO,K,2)-CC(M,IDO,K,4)))+
64 1 CC(M,IDO,K,1)
65 CH(M,IDO,3,K) = CC(M,IDO,K,1)-(HSQT2*(CC(M,IDO,K,2)-
66 1 CC(M,IDO,K,4)))
67 CH(M,1,2,K) = (-HSQT2*(CC(M,IDO,K,2)+CC(M,IDO,K,4)))-
68 1 CC(M,IDO,K,3)
69 CH(M,1,4,K) = (-HSQT2*(CC(M,IDO,K,2)+CC(M,IDO,K,4)))+
70 1 CC(M,IDO,K,3)