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 #