*======================================================================= function s_correct_cal_two(x,y) *======================================================================= *- *- Purpose: Returns the impact point correction factor. This *- factor is to be applied to the energy depositions. *- (This correction for the case when "POS_PMT"+"NEG_PMT". *- The final energy is the ADC value TIMES the correction factor. *- *- Input Parameters: x,y - impact point coordinates *- *- Created 27 September 1999 SAW * * $Log: s_correct_cal_two.f,v $ * Revision 1.2 2003/03/21 22:58:02 jones * Subroutines had arguments with abort,errmsg . But these arguments were not * used when the subroutine was called. Also abort ,errmsg were not used in the * subroutines. So eliminate abort,errmsg. (E. Brash) * * Revision 1.1 1999/01/29 17:34:57 saw * Add variables for second tubes on shower counter * * * *----------------------------------------------------------------------- * implicit none save * * logical abort * character*(*) errmsg character*17 here parameter (here='S_CORRECT_CAL_TWO') * * real*4 x,y !Impact point coordinates real*4 s_correct_cal_two * include 'sos_data_structures.cmn' include 'sos_calorimeter.cmn' * * ! I was used simple combination of "s_correct_cal_pos" and * and "s_correct_cal_neg". To be corrected !! (Hamlet) * s_correct_cal_two=exp(y/200.)+exp(-y/200.) !200 cm atten length. s_correct_cal_two=s_correct_cal_two*(1. + y*y/8000.) * return end