Analyzer/T20/t_dump_peds.f - view

Return to t_dump_peds.f CVS log

Up to [HallC] / Analyzer / T20

File: [HallC] / Analyzer / T20 / t_dump_peds.f (download)
Revision: 1.1, Tue Dec 1 20:57:41 1998 UTC (25 years, 9 months ago) by saw
Branch: MAIN
CVS Tags: spring03, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, mduality, mar-24-2003, gep_online, gep3, fpi2, emc, e01004, bigcal, baryon, aug-12-2003, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS

Initial revision

      subroutine t_dump_peds(ABORT,err)
*
*     Look in h_dump_peds and s_dump_peds for examples
*
*
* $Log: t_dump_peds.f,v $
* Revision 1.1  1998/12/01 20:57:41  saw
* Initial revision
*
      implicit none
      save
*
      character*11 here
      parameter (here='t_dump_peds')
*
      logical ABORT
      character*(*) err
*
      character*132 file

      integer*4 SPAREID
      parameter (SPAREID=67)
*
      INCLUDE 't20_data_structures.cmn'
      INCLUDE 't20_pedestals.cmn'
      INCLUDE 't20_filenames.cmn'
      INCLUDE 'gen_run_info.cmn'

      if (t_pedestal_output_filename.ne.' ') then
        file=t_pedestal_output_filename
        call g_sub_run_number(file, gen_run_number)
        open(unit=SPAREID,file=file,status='unknown')
      else
        return
      endif

      write(SPAREID,*) 'These are the values that were used for the analysis'
      write(SPAREID,*) '      (from the param file or pedestal events)'
      write(SPAREID,*)
*
      close(SPAREID)

      return
      end

Analyzer/Replay: Mark Jones, Documents: Stephen Wood