c-----------------------------------------------------------------------
	subroutine LAMBDA(l)
c estimates an effectvive lambda for an almost scaled density by several
c different methods, and outputs the values to lamf.d
c
c author: Kieron, 9.26.99
c     in: All energies as a function of external potential
c	  nlf - which method to use for defining lambda
c	        (1=Ex,2=Ts,3=Vext,4=minE ratios)
c    out: xlf(l), gamlf=1/xlf
	include 'basics.inc'
	include 'con.inc'
	include 'sys.inc'
	include 'lam.inc'
	dimension xl(4)