











      INTEGER          MAXOVC
      PARAMETER        (MAXOVC=3000)
      INTEGER          IQ7351, IQ7368
      INTEGER          IFBRT1, IFBRT2, MOVEAA, MOVEAT, IFBRT3, IFBRT4
      REAL             MOVCEN(3), OBJVEC(7,MAXOVC),
     +                 DXFBRT, DYFBRT, DZFBRT, TXFBRT, TYFBRT, TZFBRT
      LOGICAL          IRFBRT





      COMMON      /FBRTINT/
     +             IFBRT1, IFBRT2, MOVEAA, MOVEAT, IFBRT3, 
     +             IFBRT4, IQ7351

      COMMON      /FBRTREAL/
     +             OBJVEC, DXFBRT, DYFBRT, DZFBRT, TXFBRT, 
     +             TYFBRT, TZFBRT, MOVCEN, IQ7368

      COMMON      /FBRTBOOL/
     +             IRFBRT
