CIPRIME CNXDOT                                                          CNXDOT      1
      INTEGER IXDOT(NSI)                                                CNXDOT      2
      REAL XDFACT(NSI)                                                  CNXDOT      3
      COMMON /CXDOT/ XDOT(NSI),OXDOT(NSI),XRES(NSI),XDDOT(NSI)          CNXDOT      4
     1,XDOTP(NSI)                                                       CNXDOT      5
      EQUIVALENCE (XDOT(1),IXDOT(1)),(XDDOT(1),XDFACT(1))               CNXDOT      6
