c
	subroutine rayplt
	implicit real*8 (a-h,o-z)
	return
	end
	subroutine endplt
	implicit real*8 (a-h,o-z)
	return
	end
	subroutine elect1
	implicit real*8 (a-h,o-z)
	return
	end