gpamela/gpcdes/gpgig.inc

      INTEGER IPGIG,IPTYP,NBGIG
      REAL AMGIG,ZGIG,TLGIG,UPGIG,BRGIG,MODGIG
      CHARACTER*20 GIGNAM
      COMMON /GIGPART/IPGIG,IPTYP,NBGIG,AMGIG,ZGIG,TLGIG,UPGIG(3),
     +     GIGNAM,BRGIG(6),MODGIG(6)

C #       DATA UBUF/0.,0.,0./
C #       DATA BRGIG/100.00,  0.,    0.,    0.,    0.,    0./
C #       DATA MODGIG/718,    0,    0,    0,    0,    0/
C # 
1	cafagna	3.1	INTEGER IPGIG,IPTYP,NBGIG
2			REAL AMGIG,ZGIG,TLGIG,UPGIG,BRGIG,MODGIG
3			CHARACTER*20 GIGNAM
4			COMMON /GIGPART/IPGIG,IPTYP,NBGIG,AMGIG,ZGIG,TLGIG,UPGIG(3),
5			+ GIGNAM,BRGIG(6),MODGIG(6)
6
7			C # DATA UBUF/0.,0.,0./
8			C # DATA BRGIG/100.00, 0., 0., 0., 0., 0./
9			C # DATA MODGIG/718, 0, 0, 0, 0, 0/
10			C #