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