real xzlog,densol,cof
      integer*4 indsol,iofset
c
      common/lpoly/ xzlog(10),densol(4,7),cof(4,12),indsol(12),
     1     iofset(12)