subroutine hec_slow_beam_epio
c
c read slow control SPS BEAM  data
c
      implicit none
c
c      include'hec_epio.inc'     !epio common
c      include'hec_slow.inc'
c
c here is the SC back...
c
c      write(*,*)'slow control BEAM data found'
c     
c     print *, ' hec_slow_beam_epio end'
c
      end