subroutine cplog(wvec,wt)
c
      implicit none
      include 'itg.par'
      real wt,wvec,warg
      integer n
      include 'itg.cmn'
      dimension wt(ne),wvec(ne)
c
      do 10 n=1,ne
      warg=wvec(n)
      warg=abs(warg)+1.e-15
      wt(n)=alog10(warg)
   10 continue
c
      return
      end