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