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	*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