gpamela/gpcalordes/ccomon.inc

*KEEP,CCOMON.
      COMMON/CCOMON/A(100,1) ,ALPHA(200) ,APR ,ARG(1) ,BETA(200) ,
     +   COSKS ,COSPH ,COSTH  ,D ,DELSIG  ,DEN(100,1),
     +   DENH(1) ,DKWT ,E(200) ,EC(1) ,
     +   EION(100,1) ,EMAX ,EMIN(7) ,EP(200) ,EPART(200,2) ,EREC ,
     +   EX ,GAM(200) ,HEVSUM ,HSIGG(5,1) ,HSIG ,IBERT ,ITYP ,
     +   KIND(200) ,LELEM ,MAT ,MAXBCH ,MAXCAS ,MXMAT ,N ,NABOV ,
     +   NAMAX,NBELO,NBERTT,NBOGUS,
     +   NEGEX,NEL(1),NEUTNO,NEUTP,NGROUP,NPIDK,NO,
     +   NOBCH,NOCAS,NOMAX,NOPART,NPART(6),OLDWT,
     +   SIGG(100,1),SIGMX(7,2),SINKS,SINPHI,SINTH,TIP(1),
     +   UMAX,UU,WT(1),
     +   ZZ(100,1),ZPR
1	*KEEP,CCOMON.
2	COMMON/CCOMON/A(100,1) ,ALPHA(200) ,APR ,ARG(1) ,BETA(200) ,
3	+ COSKS ,COSPH ,COSTH ,D ,DELSIG ,DEN(100,1),
4	+ DENH(1) ,DKWT ,E(200) ,EC(1) ,
5	+ EION(100,1) ,EMAX ,EMIN(7) ,EP(200) ,EPART(200,2) ,EREC ,
6	+ EX ,GAM(200) ,HEVSUM ,HSIGG(5,1) ,HSIG ,IBERT ,ITYP ,
7	+ KIND(200) ,LELEM ,MAT ,MAXBCH ,MAXCAS ,MXMAT ,N ,NABOV ,
8	+ NAMAX,NBELO,NBERTT,NBOGUS,
9	+ NEGEX,NEL(1),NEUTNO,NEUTP,NGROUP,NPIDK,NO,
10	+ NOBCH,NOCAS,NOMAX,NOPART,NPART(6),OLDWT,
11	+ SIGG(100,1),SIGMX(7,2),SINKS,SINPHI,SINTH,TIP(1),
12	+ UMAX,UU,WT(1),
13	+ ZZ(100,1),ZPR