c-----------------------------------------------------------------------
	subroutine EXTRPLAM(nk,x,y)
c takes a function defined for various values of lambda, and 
c interpolates the last value from the two before
c author: Kieron, 9.22.99
c     in: nk - last point
c	  xlf(nk) - lambda values
c	  func(nk) - functiona values
c    out: func(nk) rewritten
c  calls: --
	include 'basics.inc'
	parameter(mk=200)
	dimension x(mk+1),y(mk+1)