*
        integer    ladcgam          ! length of  characteristic
        parameter (ladcgam   = 10)  ! 
        integer    madcgam          ! maximum number of particle dimensioned    
        parameter (madcgam   = 50)
        integer    nadcgam          ! number of gammas defined
        real*4      adcgam(ladcgam,madcgam)
*
        real*4
     $ energy_adcgam(ladcgam,madcgam) ,! energy
     $      x_adcgam(ladcgam,madcgam) ,! global x-coord 
     $      y_adcgam(ladcgam,madcgam) ,! global y-coord 
     $      z_adcgam(ladcgam,madcgam) ,! global z-coord 
     $     xc_adcgam(ladcgam,madcgam) ,! center of gravity x-coord
     $     yc_adcgam(ladcgam,madcgam) ,! center of gravity y-coord
     $   chi2_adcgam(ladcgam,madcgam)  ! chi2 
        integer*4
     $   type_adcgam(ladcgam,madcgam) ,! type of the gamma
     $   dime_adcgam(ladcgam,madcgam) ,! number of counters in the gamma
     $     id_adcgam(ladcgam,madcgam)  ! identification number 
*
        equivalence
     $ (energy_adcgam, adcgam( 1,1) ) ,! r4
     $ (     x_adcgam, adcgam( 2,1) ) ,! r4
     $ (     y_adcgam, adcgam( 3,1) ) ,! r4
     $ (     z_adcgam, adcgam( 4,1) ) ,! r4
     $ (    xc_adcgam, adcgam( 5,1) ) ,! r4
     $ (    yc_adcgam, adcgam( 6,1) ) ,! r4
     $ (  chi2_adcgam, adcgam( 7,1) ) ,! r4
     $ (  type_adcgam, adcgam( 8,1) ) ,! i4
     $ (  dime_adcgam, adcgam( 9,1) ) ,! i4
     $ (    id_adcgam, adcgam(10,1) )  ! i4
*
        common /adcgam_cbk/ nadcgam, adcgam
*
        save   /adcgam_cbk/
*
        integer event_flag, event_display
        common/event_control_com/ event_flag, event_display
*