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