subroutine s_trans_misc(abort,errmsg)
*-------------------------------------------------------------------
* author: John Arrington
* created: 4/8/95
*
* s_trans_misc fills the sos_decoded_misc common block
*
* $Log: s_trans_misc.f,v $
* Revision 1.6  1999/01/27 16:02:45  saw
* Check if some hists are defined before filling
*
* Revision 1.5  1996/09/04 20:18:07  saw
* (JRA) Add misc. tdc's
*
* Revision 1.4  1996/01/24 16:08:38  saw
* (JRA) Replace 48 with smax_misc_hits
*
* Revision 1.3  1996/01/17 18:12:35  cdaq
* (JRA) Misc. fixes.
*
* Revision 1.2  1995/05/22 19:46:03  cdaq
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts"
*
* Revision 1.1  1995/04/12  03:59:23  cdaq
* Initial revision
*
*
*--------------------------------------------------------

      implicit none

      include 'sos_data_structures.cmn'
      include 'sos_scin_parms.cmn'
      include 'sos_id_histid.cmn'

      logical abort
      character*1024 errmsg
      character*20 here
      parameter (here = 's_trans_misc')

      integer*4 ihit,ich,isig

      save
      
      do ihit = 1 , smax_misc_hits
        smisc_dec_data(ihit,1) = 0     ! Clear TDC's
        smisc_dec_data(ihit,2) = -1     ! Clear ADC's
      enddo

      do ihit = 1 , smisc_tot_hits
        ich=smisc_raw_addr2(ihit)
        isig=smisc_raw_addr1(ihit)
        smisc_dec_data(ich,isig) = smisc_raw_data(ihit)
        smisc_scaler(ich,isig) = smisc_scaler(ich,isig) + 1
        if (isig.eq.1.and.sidmisctdcs.gt.0) then        !TDC
          call hf1(sidmisctdcs,float(smisc_dec_data(ich,isig)),1.)
        endif
      enddo

      return
      end