134






31 MAY 19 79

    2630C
    2640      XL; =1.0/x t,"1.5
    26.50     TIl =TIlXS4X8
    2660      TI33P =T133S*cX8
    2670      IF(XL -LT. C-3)GO TO 63
    268,0     "ri33 =,ri33s/(x -C3)**1.5
    2690,63    T122 =T122S vX8
    2700C
    2710C NEUTRAL IMPURITY SCATTERING RELAXATION TIME
    2720C
    2730      X9=X 1I-TN G/Xi
    2740      TNI=TNI1/X9
    2750      T?42=TNI2/X9
    2760      TN3=TN I3/X9
    2770C
    2730C TOT.L RELAXATION TIMES IN EACH BAND
    2790C INTRABAND SCATTERING TIMES
    2800C.
    2810      Ti =190/(TLAII +TLDli 4-TIll +TNI)
    2820      T2 =t,0/(TLA22  TLO22 +T122 +TN2)
    2830      T3 =1,0/(TA33 -TL33 4-TI33P f-TN3)
    2840      TAU3 =lO/(TLA33 4"rLO33 fTI33 fTN3)
    2850C
    2860      D =1.0-Ti *T2 /(TLAI2 *TL~21 )
    2870      CRI =1.O+(T2 *MDI(J))/(TLA12 '*D2(J))
    2880      CR2 =i.0I(Tl -*MD2(J))/(TLA2t *MD!(J))
    2890      TAUl =CRI " T! /D
    2900      TAU2 =CF2 *T2 /D
    2910      TZ=1.0/{R8/TAU-R9/TAU2-pRIO/TAU3)
    2920      GO TO (1*2v3)UJJ
    2930#1     TAUlL=TAUl
    2940      TAU2L=TAU2
    2950      T3L=T3
    2960      TAU3L=TAU3
    2970      TZL=TZ
    2980      GO TO 4
    2990#2     TAUP=TAUI 3000         TAU21=TAU2
    30"10     T3R=T3
    3020      TAU3P.=TAU3
    3030      TZR=TZ
    3040      GO TO 4
    3050ff3    TAUVM=TAUl
    3060      TAU2=TAU2
    3070      T3M=T3