c-----------------------------------------------------------------------
	subroutine DENSCAL(l,vcgga,dec)
c takes the present density and an orginial one, scaled onto the present
c grid, and calculates the correlation energy difference between them
c
c author: Kieron, 10.4.99
c     in: xlf=inverse scale factor 
c	  vcgga=correlation potential to be used
c    out: dec=energy difference
c  calls: ECDIFF
	include 'basics.inc'
	include 'sys.inc'
	include 'con.inc'
	include 'dens.inc'
	include 'lam.inc'
	dimension scdens(0:m),densp(0:m),vcgga(0:m)