      t0 = 2.D0/15.D0*sqrt(30.D0)/R*sqrt(pi)*M
                                 C22(1,1)=t0

      t0 = cmplx(0.D0,-2.D0/15.D0)*sqrt(pi)*sqrt(30.D0)/R*M
                                 C22(1,2)=t0

      t0 = 0
                                 C22(1,3)=t0

      t0 = -2.D0/15.D0*sqrt(30.D0)/R*sqrt(pi)*M
                                 C22(2,2)=t0

      t0 = 0
                                 C22(2,3)=t0

      t0 = 0
                                 C22(3,3)=t0

