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	cafagna	1.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