***********************************************************************

      FUNCTION CDrise(RM,AR,CL)

***********************************************************************
       TC=.08
C FIND DRAG DIVERGENCE M
C
      RMDD = .80 +.6*(.1-TC)
      RMDD=RMDD*(1.-3.*TC*CL**2)
      DM = RM - RMDD
C TRANSONIC DRAG RISE, CDRISE
C
       IF(DM.GE.0.) THEN
           CDRISE=.5*1.E-3*(10.*DM/(1./COS(.35)-RMDD))**(3./(1+1/AR))
       ELSE
           CDRISE=0.
        ENDIF
      RETURN
      END