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	pamela	1.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)