#include "gppgig.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 #