subroutine g_dump_peds(ABORT,err) * * $Log: g_dump_peds.f,v $ * Revision 1.1 1996/04/29 19:46:35 saw * Initial revision * implicit none save * character*12 here parameter (here='g_dump_peds') * logical ABORT character*(*) err * integer*4 ind character*132 file integer SPAREID parameter (SPAREID=67) * INCLUDE 'gen_data_structures.cmn' INCLUDE 'gen_filenames.cmn' INCLUDE 'gen_run_info.cmn' if (g_pedestal_output_filename.ne.' ') then file=g_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,*) * * MISC PEDESTALS * write(SPAREID,*) 'gmisc_ped = ' write(SPAREID,113) (gmisc_ped(ind,2),ind=1,16) 113 format (7(f6.1,','),f6.1) close(SPAREID) return end