      subroutine myOwnMagField(X,B)

      real*8 x(3)
      real*8 B(3)

      B(1)=-1.D31
      B(2)=-1.D31
      B(3)=-1.D31
      end

