gpamela/gpnd/gpgigp.F

      SUBROUTINE GPGIGP
*************************************************************************
*                                                                      *
* To define new neutron for gigantic resonance.                        *
* Called by: UGINIT                                                    *
* Author: Francesco Cafagna, 05/12/05                                  *
*                                                                      *
************************************************************************
#include "gpgig.inc"
*
      CALL GFPART(13,GIGNAM,IPTYP,AMGIG,ZGIG,TLGIG,UPGIG,NBGIG)
      GIGNAM='GIGneutron$        '
      IPGIG =51
      UPGIG(1)= 1.
      UPGIG(2)= 2.
      UPGIG(3)= 3.
      NBGIG = 3
      CALL GSPART(IPGIG,GIGNAM,IPTYP,AMGIG,ZGIG,TLGIG,UPGIG,NBGIG)
      RETURN
      END
1	cafagna	1.1	SUBROUTINE GPGIGP
2			*************************************************************************
3			* *
4			* To define new neutron for gigantic resonance. *
5			* Called by: UGINIT *
6			* Author: Francesco Cafagna, 05/12/05 *
7			* *
8			************************************************************************
9			#include "gpgig.inc"
10			*
11			CALL GFPART(13,GIGNAM,IPTYP,AMGIG,ZGIG,TLGIG,UPGIG,NBGIG)
12			GIGNAM='GIGneutron$ '
13			IPGIG =51
14			UPGIG(1)= 1.
15			UPGIG(2)= 2.
16			UPGIG(3)= 3.
17			NBGIG = 3
18			CALL GSPART(IPGIG,GIGNAM,IPTYP,AMGIG,ZGIG,TLGIG,UPGIG,NBGIG)
19			RETURN
20			END