gpamela/gpcdes/gpgneut.inc

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) 
1	C Out parameters from subroutine GPGRES
2	C Number of neutrons generated in Gigantic resonance
3	parameter (MAX_NEUTR=3)
4	integer Number_N
5	c Energy and direction angles of generated neutrons in the reference
6	c coordinate system
7	real Neut_En, teta_n, fi_n
8	common/NeutronsGR/Number_N, Neut_En(MAX_NEUTR),
9	+ teta_n(MAX_NEUTR), fi_n(MAX_NEUTR)