c----------------------------------------------------------------------
	function VIR(v) 
c calculates a virial of a potential
c
c 
c author: Kieron Burke, 8.14.99
c     in: dens, v
c    out: 
c  calls:
	include 'basics.inc'
	include 'dens.inc'
	dimension v(0:m),dum(0:m)