C LUDAT2
      INTEGER KCHG
      REAL    PMAS,PARF,VCKM
      COMMON /LUDAT2/ KCHG(500,3),PMAS(500,4),PARF(2000),VCKM(4,4)