subroutine cplogp(wvec,wt,ne) ! ! (c) Copyright 1991 to 1998 by Michael A. Beer, William D. Dorland, ! P. B. Snyder, Q. P. Liu, and Gregory W. Hammett. ALL RIGHTS RESERVED. ! implicit none ! arguments: real, dimension(:) :: wvec, wt integer ne wt(1:ne) = log10(abs(wvec(1:ne)) + 1.e-15) end subroutine cplogp