. 133


31 MAY 1979


2180      DO 70 KK=loN3
2190      IF(KK ,GT, NI)GO TO 101
2200      GO TO 102
221 l#l  XL=V+2.:*( KK--N I-1 ) Z 2220     Y r-,= V -4-2. * (KK-MI ) 9:Z
2230      XM=(XL+XPR)/2,
2240      V;=Z
2250      GO TO 103
2260#102   XL--2. *' ( KK-l ):4W 2270     XR = 2 ,,WK K *W
2280      XM= (XL-X R)/2.
2290      I'F{KK ,EQ. NI)V=XR
2300#103   IF(XL  EO. O.O)XL=XM/1000.O 2310     DO 65 JJ=l ,3
2320      IF (JJ EQ. 1) X=XL
2330      IF (JJ .EQo 2) X=XR
2340      IF (.JJ ofE-0 3) X=X.
2350C
2360C ACOUSTIC PHONON SCATTERING RELAXATION TIMES 2370C
2380      X1 =SORT(X
2390      TLAII =ACIIS:*X1
2400      TLA12 =ACI2S*X1
2410      TLA22 =AC22S*cX1
2420      TLA21 =AC2! S*kXl
2430      TA33 =AC33S*Xl
2440      IF(XL oLT* C3)GO TO 54
2450      TLA33 =AC33S*SQRT(X -C3)
2460AI54   CONTINUE 2470C
2480C OPTICAL PHONON SCATTERING RELAXATION TIMES 2490C
2500      lFIXL L.To C4)GO TO 57
2510      X3 =SORT(X -C4)
2520257    X4 =SORTrX +C4) 2530     T.O11 =OPIIS*(PDIST14.X3 4PDIST*X4 )
2540      TL33 =OP33S'(PDISTl*X3 +P:IST*'X4 )
2550      IF fXL ,LTo CS)GO TO 58
2560      X5 =SORT(X -CS)
25700.58   !FtXL *LT* C6)GO TO 59 2580     X6 =SQRT(X -C5)
2590#59    TLO33 =OP33SrIPDIST14X5 4-PDIST*X6 ) 2600     TLO22=OP22S*:(PDIST1 X3+PIST* x4)
261 OC
2620C  IONIZED IMPURITY SCATTERING RELAXATION TIMES