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	pamela	3.2	#include "gppgig.inc"
2
3	cafagna	3.1	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 #