C     Out parameters from subroutine GPGRES
C     Number of neutrons generated in Gigantic resonance
      parameter (MAX_NEUTR=3)      
      integer  Number_N            
c     Energy and direction angles of generated neutrons in the reference
c     coordinate system
      real Neut_En, teta_n, fi_n   
      common/NeutronsGR/Number_N, Neut_En(MAX_NEUTR), 
     +     teta_n(MAX_NEUTR), fi_n(MAX_NEUTR)