1      logical function pre_slvnum(islv,boxs,nwms,box,nwm)
2c
3c $Id$
4c
5      implicit none
6c
7      integer islv,nwms,nwm
8      real*8 boxs(3),box(3)
9c
10      nwm=0
11      if(islv.eq.1) then
12      nwm=2*int(dble(nwms)*(box(1)*box(2)*box(3))/
13     + (boxs(1)*boxs(2)*boxs(3)))
14      elseif(islv.eq.2) then
15      nwm=int(dble(nwms)*0.5d0*(box(1)*box(2)*box(3))/
16     + (boxs(1)*boxs(2)*boxs(3)))
17      elseif(islv.eq.3) then
18      nwm=2*int(dble(nwms)*(box(1)*box(2)*box(3))/
19     + (boxs(1)*boxs(2)*boxs(3)))
20      endif
21c
22      pre_slvnum=.true.
23      return
24      end
25