subroutine cplogp(wvec,wt,ne)
c
      implicit none
      include 'itg.par'

c arguments:
      real wvec(fno*nez),wt(fno*nez)
      integer ne

c local vars:
      integer n
      real warg

      do 10 n=1,ne
      warg=wvec(n)
      warg=abs(warg)+1.e-15
      wt(n)=log10(warg)
   10 continue
c
      return
      end