c     test modified supersoft potential v8'
c     output for SD(S=1,J=1,r=1.5 fm):
c     -12.58425 -56.86922 -56.86922  27.26076    MeV

      implicit none
      real*8 r,vpw(2,2)
      integer i,lpot,l,s,j,t,t1z,t2z
      r=1.5  
      lpot=1.5
        l=0
        s=1
        j=1
        t=0
        t1z=-1
        t2z=1
        call av18pw(lpot,l,s,j,t,t1z,t2z,r,vpw)
        print14, vpw
 14     format(4f10.5)
      end