      subroutine potent(x,l,i)
      common/Blank/ e,b,pk,pl,qsq(19,10),qss(19,10)
      common/B2/eig(19,10)
      common/B3/a12,a6
      y = 1./x**6
      v6 =4.*b*y
      v12=4.*b*y**2
      v = v12*(1.+a12*eig(l,i))-v6*(1.+a6*eig(l,i))
      qss(l,i) = sqrt(e - (pl+0.5)**2/x**2 - v)
      return
      end
