*
      integer
     &        min_count       ! min_count offline cut
*
      real
     &        min_energy,     ! min_energy offline cut
     &        max_chi2        ! max_chi2   offline cut
*
      COMMON /photo_flg/
     & min_count, min_energy, max_chi2
*
      real
     &        DTARG,          ! LG-block semi-sizes
     &        zhycal          ! LG-block semi-size(Z)
*
      COMMON /photo_par/
     & DTARG(0:1,3), zhycal
*
*
      INTEGER
     &        MCOL,           ! MAX half Number of col. in the Calorimeter
     &        MROW            ! MAX half Number of rows in the Calorimeter
*
      PARAMETER (MCOL = 49, MROW = 49)
*
      INTEGER
     &        NCOL,           ! half (Number-1) of col. in the Calorimeter
     &        NROW            ! half (Number-1) of rows in the Calorimeter
*
      integer icase, minpk, i_gen_method, igeometry
      real    global_gain, delch, xm2cut, chisq1, chisq2
*
      common/photo_dim/ NCOL(0:1), NROW(0:1), icase, i_gen_method,
     &        igeometry,
     &        global_gain, delch, xm2cut, minpk, chisq1, chisq2
*
      real    xmislib, ymislib, escale
      common/lib_aux_com/ xmislib, ymislib, escale
*
      real    user_ar
      common/user_com/ user_ar(32)
*