C LUDAT3
      INTEGER MDCY,MDME,KFDP,L2PAR,l2PARF
      PARAMETER (L2PAR=500, L2PARF=2000 )
      REAL BRAT
      COMMON /LUDAT3/ MDCY(L2PAR,3),MDME(L2PARF,2),BRAT(L2PARF),
     &                KFDP(L2PARF,5)