31 MAY 1979


3080      TAU34=TAU3
3090      TZrA=TZ
3100#4     CONTINUE 3110#65   CONTINUE 31 20C
3130C  TOTAL LIFETIFiS IN EACH EAND SQUARED 31 40C
3130      T.1 SOL=TAt L* .2 aC
3160      T ISO M- TA U 1.21*2. 0
3170      TLSQ,=TAU1R*92,0
31.00     T2SQL=TAU2L* 1,2.0 3190     T2SOM=TAU2-D 2o0
3200      T2SQR=TAU2R-*2*0
32.0      T33SOL=T3Lt,*2, 0
3220      T 33SQM=T3,4V*2e 0
3230      T33 S0R=T3PR*2*0
3240      T3SQL=TAU3L*,,t2w 0
3250      T3SQf1=T AU3M**-290
3260      T3SOR=TAU3PR4*2.0
3270      TSUZL=TZL"**2*0
3280      TSQZM=TZI4,*,?* 2.0
3290      TSQZ-TZRU::2, 0
3300C
3310C SUM4MATIONS FOR THE INTEGPALS 3-320C
3330      SUrll=SUM14 (W/3, ) *(T3L*F6(XL)+4o *T3M'= 6( XA) +
3335     &T3R*F6(XR) )
3340      SUN3=SUM3+(1/3a) J'.( TAU2L*F6( XL) +
3345     &.4.*TAU2-*5F(XM)+TAU2R*F6(XR)) 3350     SUM6=SUM6.-(V/3. )*( TAU1 LF6 (XL) +
3355     &4,,*TAUIM*FG(XMl)+TAU IP*F6(XR))
3360      SUM8=SU,18- ( Vl/3,* ) * (T33S QLt4F6 (XL) +
3365,    &4.*T33SQM F6(XM)+T33SQRF6.XR)) 3370     SUMt0=SUM1O0+(W/3.)4r(T,2SOL tF6(XL)+
3375     G4. 4: T2SQMAF6 (XM) +T2SQRF6 (XR))
3380      SUM13=SUM13-(W/3,.)*(T1SQL*F 5 (XL) 
3385     &4.-tTSQMr c(XM)+TSQR*F6(XR)) 3390     SUM 1,9=SU, ?19+ ( W/3 * ) * [ TZL*F6 (XL -3395     t , - TZM'*6 (XM ) +TZR*F6( XP ) )
3400      SUM20=SU 20+(W/3, )(TSQZL*F6(XL)+
3405     &4 .*TSQZf41*F6(X.M) -TSGZP4-F6(XR)
3410      IF(XL *LT, C3)GO TO 66
3420      SUM2=SUM2+(W/3. ),(TAU3L*F5(XL)+
3425     &4.o*TAU3Ml F5tX)4 )+TAU3R F5(XR ))
3430      SUM9=SUM9.e(,/3,)*(T3SQL*FSCXL)+