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	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