1 cdaq  1.1       SUBROUTINE H_REPORT_BAD_DATA(lunout,ABORT,errmsg)
  2           
  3           *--------------------------------------------------------
  4           *
  5           *   Purpose and Methods: Output warnings for possible hardware problems
  6           *          in file 'bad<runnum>.txt' (unit=lunout)
  7           *

  8 cdaq  1.2 *	NOTE: Nothing should be written to the file unless there is a warning
  9           *             to be reported.  (i.e. check for error messages before writing
 10           *             headers.
 11           *

 12 cdaq  1.1 *  Required Input BANKS: 
 13           *
 14           *                Output: ABORT           - success or failure
 15           *                      : err             - reason for failure, if any
 16           * 
 17           * author: John Arrington
 18           * created: 8/17/95

 19 cdaq  1.2 * $Log: h_report_bad_data.f,v $

 20 saw   1.3 * Revision 1.2  1996/01/16 21:56:20  cdaq
 21           * (JRA) Warn when pedestals change too much
 22           *

 23 cdaq  1.2 * Revision 1.1  1995/08/31 14:44:52  cdaq
 24           * Initial revision
 25           *

 26 cdaq  1.1 *--------------------------------------------------------
 27           
 28                 IMPLICIT NONE
 29           *
 30                 character*17 here
 31                 parameter (here= 'H_REPORT_BAD_DATA')
 32           *
 33                 logical ABORT
 34                 character*(*) errmsg
 35           *

 36 cdaq  1.2       include 'hms_data_structures.cmn'
 37                 include 'hms_calorimeter.cmn'
 38                 include 'hms_pedestals.cmn'
 39                 include 'hms_cer_parms.cmn'

 40 cdaq  1.1 
 41                 integer*4 lunout

 42 cdaq  1.2       integer*4 ind
 43                 integer*4 icol,irow

 44 cdaq  1.1 

 45 cdaq  1.2       character*4 pln(hnum_scin_planes)
 46                 character*2 cnt(hnum_scin_elements)
 47                 character*1 sgn(2)
 48                 character*2 col(hmax_cal_columns)
 49                 character*2 row(hmax_cal_rows)
 50                 character*5 mir(hcer_num_mirrors)

 51 cdaq  1.1       save
 52           

 53 cdaq  1.2       data pln/'hS1X','hS1Y','hS2X','hS2Y'/
 54                 data cnt/'01','02','03','04','05','06','07','08',
 55                &      '09','10','11','12','13','14','15','16'/
 56                 data sgn/'+','-'/
 57           
 58                 data col/'hA','hB','hC','hD'/
 59                 data row/'01','02','03','04','05','06','07',
 60                &         '08','09','10','11','12','13'/
 61           
 62                 data mir/'hcer1','hcer2'/
 63           

 64 saw   1.3 ! Remove reporting of difference between pedestals and input pedestals
 65           ! from parameter files now that we always use the pedestal events.
 66           !

 67 cdaq  1.2 * report channels where the pedestal analysis differs from the param file.

 68 saw   1.3 !      if ((hhodo_num_ped_changes+hcal_num_ped_changes+hcer_num_ped_changes)
 69           !     &     .gt. 0) then
 70           !
 71           !        write(lunout,*) '  HMS detectors with large (>2sigma) pedestal changes'
 72           !        write(lunout,*)
 73           !        write(lunout,*) ' Signal  Pedestal change(new-old)'
 74           !
 75           !        if (hhodo_num_ped_changes.gt.0) then
 76           !          do ind=1,hhodo_num_ped_changes
 77           !            write(lunout,'(2x,a4,a2,a1,f9.1)')
 78           !     $           pln(hhodo_changed_plane(ind))
 79           !     $           ,cnt(hhodo_changed_element(ind))
 80           !     $           ,sgn(hhodo_changed_sign(ind)),hhodo_ped_change(ind)
 81           !          enddo
 82           !        endif
 83           !
 84           !        if (hcal_num_ped_changes.gt.0) then
 85           !          do ind=1,hcal_num_ped_changes
 86           !            icol=(hcal_changed_block(ind)-0.5)/hmax_cal_rows + 1
 87           !            irow=hcal_changed_block(ind)-hmax_cal_rows*(icol-1)
 88           !            write(lunout,'(4x,a2,a2,f9.1)') col(icol),row(irow),
 89 saw   1.3 !     &           hcal_ped_change(ind)
 90           !          enddo
 91           !        endif
 92           !
 93           !        if (hcer_num_ped_changes.gt.0) then
 94           !          do ind=1,hcer_num_ped_changes
 95           !            write(lunout,'(3x,a4,f9.1)') mir(hcer_changed_tube(ind)),
 96           !     &           hcer_ped_change(ind)
 97           !          enddo
 98           !        endif
 99           !      endif              ! are there pedestal changes to report?

100 cdaq  1.1 
101                 return
102                 end