      subroutine hec_fadc_ini
c
      implicit none
c
c flash adc common
c
      include'hec_par.inc'
      include'hec_fadc.inc'
c
      firstfadc = .true.
c
      end
