gpamela/gpcalordes/cisob2.inc

*KEEP,CISOB2.
      REAL*8 PM(4),PART(5),CRDT(25),PT(48),E(4),
     +    PXYZ(12),COL(24),PNIDK(23),OUT(40),
     +    ANDIT,EINC,CASESN,PRTIN,TRSYM,
     +    PGCNT,PACNT,VALUE2,PNMS,SQNM,DNCMS,RCPMV,POMS,VALUE1,ANS,
     +    BEGRU,STRKP,RLKE,P1OE1,POLC,POLS,SOPC,SOPS,P2,SN,COM,SNT,
     +    CST,COM2,VALUE3,UNIV, UNIVE, UNIVER, COM1, FTR, A
      DIMENSION ISW(13)
      COMMON/CISOBR/ANDIT,EINC,CASESN
      COMMON/CISOBR/ PM,PART,CRDT,PT,E,PXYZ,COL,PNIDK,OUT,PRTIN,TRSYM,
     + PGCNT,PACNT,VALUE2,PNMS,SQNM,DNCMS,RCPMV,POMS,VALUE1,ANS,BEGRU,
     + STRKP,RLKE,P1OE1,POLC,POLS,SOPC,SOPS,P2,SN,COM,SNT,CST,COM2,
     + VALUE3,UNIV, UNIVE, UNIVER, COM1, FTR, A,
     + ISW,NRT,LN,INPT,NO,IV,IP,I1,I2,IK,I3,NOR
C
1	cafagna	1.1	*KEEP,CISOB2.
2			REAL*8 PM(4),PART(5),CRDT(25),PT(48),E(4),
3			+ PXYZ(12),COL(24),PNIDK(23),OUT(40),
4			+ ANDIT,EINC,CASESN,PRTIN,TRSYM,
5			+ PGCNT,PACNT,VALUE2,PNMS,SQNM,DNCMS,RCPMV,POMS,VALUE1,ANS,
6			+ BEGRU,STRKP,RLKE,P1OE1,POLC,POLS,SOPC,SOPS,P2,SN,COM,SNT,
7			+ CST,COM2,VALUE3,UNIV, UNIVE, UNIVER, COM1, FTR, A
8			DIMENSION ISW(13)
9			COMMON/CISOBR/ANDIT,EINC,CASESN
10			COMMON/CISOBR/ PM,PART,CRDT,PT,E,PXYZ,COL,PNIDK,OUT,PRTIN,TRSYM,
11			+ PGCNT,PACNT,VALUE2,PNMS,SQNM,DNCMS,RCPMV,POMS,VALUE1,ANS,BEGRU,
12			+ STRKP,RLKE,P1OE1,POLC,POLS,SOPC,SOPS,P2,SN,COM,SNT,CST,COM2,
13			+ VALUE3,UNIV, UNIVE, UNIVER, COM1, FTR, A,
14			+ ISW,NRT,LN,INPT,NO,IV,IP,I1,I2,IK,I3,NOR
15			C