      REAL FUNCTION SIGMA(E)
C     Interchange Reactions
C     D_2^+(nu=2)+H_2->HD_2^++H
C     CROSS SECTION(CM^2)  :SIGMA
C     COLLISION ENERGY(KEV):E
C     JAERI-Data/Code 96-024(1996)
      REAL A(14)
      DATA EMIN,EMAX /5.8E-5,4.6E-4/
      DATA A /1.197E-04,-7.881E-01,1.946E-04,5.093E+00,5.618E-01,
     >        2.254E+00,8*0.0/
      DATA SIGMA0,ER /1.E-16,99.90/
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7--
      F3(X)=SIGMA0*A(1)*(X/ER)**A(2)/(1.+(X/A(3))**(2.*A(2)))
      F4(X)=SIGMA0*A(1)*(X/ER)**A(2)/(1.+(X/A(3))**(A(2)+A(4)))
      F6(X,ALPHA)=SIGMA0*A(1)*(X/ER)**A(2)/
     >            (1.+(X/A(3))**(A(2)+A(4))+(X/A(5))**(A(2)+ALPHA))
      F11(X,ALPHA,BETA)=SIGMA0*A(1)*(X/ER)**ALPHA/
     >            (1.+(X/A(3))**(ALPHA+BETA)+(X/A(5))**(ALPHA+A(6)))
      F12(X,ALPHA,BETA)=F11(X,ALPHA,BETA)
      F13(X,ALPHA,BETA)=SIGMA0*A(1)*(X/ER)**ALPHA/
     >                  (1.+(X/A(3))**(ALPHA+BETA))
C
      SIGMA=0.0
      IF(E.LT.EMIN .OR. E.GT.EMAX) GO TO 9999
      SIGMA=F4(E)+A(5)*F4(E/A(6))
 9999 RETURN
      END
