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

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

      t0 = 0
                                Y2m2(1,3)=t0

      t0 = 0
                                Y2m2(1,4)=t0

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

      t0 = 0
                                Y2m2(2,3)=t0

      t0 = 0
                                Y2m2(2,4)=t0

      t0 = 0
                                Y2m2(3,3)=t0

      t0 = 0
                                Y2m2(3,4)=t0

      t0 = 0
                                Y2m2(4,4)=t0

