5 * Revision 1.1.1.1 1996/04/01 15:02:23 mclareni
11 REAL A(129),B(129),C(128)
12 COMMON /TAB/D(126),E(127)
16 S2 = S2+A(I-1)+A(131-I)
18 A2 = A(131-I)-A(129-I)
34 C(66) = 2.*(A(64)-A(66))
35 CALL D64(C,C(2),2,C,C(2),2)
41 E1 = 0.5*(C(I)+C(130-I))
42 E2 = E(2*I-2)*(C(I)-C(130-I))