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 DOUBLE PRECISION SHIFT, OMEGA DOUBLE PRECISION VALUE DOUBLE PRECISION CORF(3) LOGICAL ERRFLG
SHIFT = UPAR(1) OMEGA = UPAR(2) COEF(1) = UPAR(3) COEF(2) = UPAR(4) COEF(3) = UPAR(5)
CALL RD_FORSIN(TIME,SHIFT,OMEGA,COEF,3,IORD,VALUE,ERRFLG) RESULT = VALUE
RETURN END |