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