subroutine hec_cal_print
c
c print the processed calibration coefficients
c
      implicit none
c
      include'hec_par.inc'      ! shared parameters
      include'hec_cal_coef.inc' !calibration coefficients
      include'hec_geo.inc'      ! geometry correspondence tables
c
      integer ic, i
c
      print *, ' '
      print *, ' *** printing the calibration coefficients for version '
     +  ,cal_version
      print *, ' ic  coefficients                      flag (1 is good)'
      do ic = 1, i_adc_used
        write(*, '(i4, 4(2x, e12.3), 2x, i2)') 
     +    ic, (hec_cal_coef(ic, i), i = 1, 4), nint(hec_cal_coef(ic, 5))
      enddo
c
      end