C---- SUB. MOTION_USUB

      SUBROUTINE MOTION_USUB

     &          (TIME,UPAR,NPAR,IORD,IFLAG,RESULT)

C---- TO EXPORT * SUBROUTINE

      !DEC$ ATTRIBUTES DLLEXPORT,C::MOTION_USUB

C---- INCLUDE SYSTEM CALL

      INCLUDE 'SYSCAL.F'

C---- DEFINE VARIABLES

C     Parameter Information

C     TIME   : Simulation time of RD/Solver. (Input)

C     UPAR   : Parameters defined by user. (Input)

C     NPAR   : Number of user parameters. (Input)

C     IORD   : Integrator order. (Input)

C     IFLAG  : When RD/Solver initializes arrays, the flag is true. (Input)

C     RESULT : Returned value. (Output)

      DOUBLE PRECISION TIME, UPAR(*)

      INTEGER NPAR, IORD

      LOGICAL IFLAG

      DOUBLE PRECISION RESULT[REFERENCE]

C---- USER STATEMENT

c---- LOCAL VARIALBE DIFINITIONS

      DOUBLE PRECISION VALUE,MKID(6)

      LOGICAL ERRFLG

C---- ASSIGN IMPACT PARAMETERS

      DO I = 1, 6

         MKID(I) = UPAR(I)

      ENDDO

C---- CALL RD_POLY TO COLLECT INFORMATION FOR CALCULATINOS

      CALL RD_POLY(TIME, 0,5D0, MKID, 6, 0, VALUE, ERRFLG)

C---- ASSIGN THE RETURNED VALUE TO USER SUBROUTINE

      RESULT = VALUE

      RETURN

      END