      t0 = 0
                                Y1m1(1,1)=t0

      t0 = 0
                                Y1m1(1,2)=t0

      t0 = 0
                                Y1m1(1,3)=t0

      t0 = -2.D0/3.D0*sqrt(pi)/R*sqrt(6.D0)*M
                                Y1m1(1,4)=t0

      t0 = 0
                                Y1m1(2,2)=t0

      t0 = 0
                                Y1m1(2,3)=t0

      t0 = cmplx(0.D0,-2.D0/3.D0)*sqrt(pi)*M/R*sqrt(6.D0)
                                Y1m1(2,4)=t0

      t0 = 0
                                Y1m1(3,3)=t0

      t0 = 0
                                Y1m1(3,4)=t0

      t0 = 0
                                Y1m1(4,4)=t0

