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