gpamela/gpcdes/gpgig.inc

#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 # 
1	#include "gppgig.inc"
2
3	INTEGER IPGIG,IPTYP,NBGIG
4	REAL AMGIG,ZGIG,TLGIG,UPGIG,BRGIG,MODGIG
5	CHARACTER*20 GIGNAM
6	COMMON /GIGPART/IPGIG,IPTYP,NBGIG,AMGIG,ZGIG,TLGIG,UPGIG(3),
7	+ GIGNAM,BRGIG(6),MODGIG(6)
8
9	C # DATA UBUF/0.,0.,0./
10	C # DATA BRGIG/100.00, 0., 0., 0., 0., 0./
11	C # DATA MODGIG/718, 0, 0, 0, 0, 0/
12	C #