SUBROUTINE S_DUMP_CAL(ABORT,errmsg) *-------------------------------------------------------- *- *- Purpose and Methods : Analyze scintillator information for each track *- *- Required Input BANKS SOS_CALORIMETER *- GEN_DATA_STRUCTURES *- *- Output: ABORT - success or failure *- : err - reason for failure, if any *- * author: John Arrington * created: 9/7/95 * * s_dump_cal writes out the raw calorimeter information for the final tracks. * This data is analyzed by independent routines to fit the gains for each * block. * * $Log: s_dump_cal.f,v $ * Revision 1.4 1999/06/10 16:56:30 csa * (JRA) Added ycal, emeas calculations, changed test condition * * Revision 1.3 1999/01/29 17:34:58 saw * Add variables for second tubes on shower counter * * Revision 1.2 1996/01/17 18:07:51 cdaq * (JRA) Put track and delta cuts on what get's written out * * Revision 1.1 1995/10/09 20:17:10 cdaq * Initial revision * *-------------------------------------------------------- IMPLICIT NONE * character*10 here parameter (here= 'S_DUMP_CAL') * logical ABORT character*(*) errmsg * INCLUDE 'sos_data_structures.cmn' include 'sos_calorimeter.cmn' integer*4 blk real*4 emeas,ycal save * * Write out cal fitting data. * * What should this do for new tubes? * if (abs(ssdelta).le.18 .and. scer_npe_sum.ge.2.0) then ycal=ssy_fp + scal_1pr_zpos*ssyp_fp ycal=min(35.,ycal) ycal=max(-35.,ycal) emeas=ssp*exp(-ycal/210.7)/(1+ycal**2/22000.) write(36,'(1x,44(1x,f6.1),1x,e11.4)') & (scal_realadc_pos(blk),blk=1,smax_cal_blocks),emeas ! if(scal_num_neg_columns.gt.0) then ! write(36,'(1x,44(1x,f6.1),1x,e11.4)') ! & (scal_realadc_neg(blk),blk=1,smax_cal_blocks),ssp ! endif endif RETURN END