*=======================================================================
      subroutine h_prt_cal_decoded
*=======================================================================
*-
*-      Dumps the decoded calorimeter data
*-
*-      Created: 19 Mar 1994      Tsolak A. Amatuni
*-      Modified: 25 March 1994   DFG
*-                                Change name
*-                                Change lun
* $Log: h_prt_cal_decoded.f,v $
* Revision 1.2  1995/05/22 19:39:19  cdaq
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts"
*
* Revision 1.1  1994/04/13  15:41:16  cdaq
* Initial revision
*
*-----------------------------------------------------------------------
*
      implicit none
      save
*
      integer*4 hit      !Hit number
*
      include 'hms_data_structures.cmn'
      include 'hms_calorimeter.cmn'
      include 'hms_tracking.cmn'
*
      write(hlun_dbg_cal,10) hnhits_cal
   10 format(///'          HMS Calorimeter Decoded Data      ',/,
     &          '             Total Number of Hits:',i4,      //,
     &          ' Hit #   X[cm]   Z[cm]   Energy Deposition[GeV]')
*
*
      if(hnhits_cal.le.0) return
*
      do hit=1,hnhits_cal
         write(hlun_dbg_cal,20)
     &   hit,hblock_xc(hit),hblock_zc(hit),hblock_de(hit)
   20    format(i5,3x,f6.2,1x,f7.2,5x,f9.4)
      enddo
*
      write(hlun_dbg_cal,30) hcal_e1,hcal_e2,hcal_e3,hcal_e4,hcal_et
   30 format( /,' Column #   Energy Deposition[GeV]',/,
     &          '    1         ',f9.4               ,/,
     &          '    2         ',f9.4               ,/,
     &          '    3         ',f9.4               ,/,
     &          '    4         ',f9.4               ,/,
     &          '        Total:',f9.4)
*
      return
      end