Welcome to Adams/Solver Subroutines - Kxcad.net

Welcome to Adams/Solver Subroutines
INTEGER IORD
LOGICAL IFLAG
DOUBLE PRECISION VALUE
C
C ID Identifier of calling MOTION statement
C TIME Current time
C PAR Array containing passed parameters
C NPAR Number of passed parameters
C IORD Derivative order of value to be returned
C IFLAG Initialization pass flag
C VALUE Derivative value of MOTION returned to ADAMS
C
C - Local variable and parameter definitions ----
C
...
C
C === Executable code =================================
C
C Assign parameters to readable variable names
C
...
C
IF ( IFLAG ) THEN
C
C - Subroutine initialization -----------
C
...
C
ENDIF
C
C - Compute and assign the motion displacement ---
C
IF ( IORD .EQ. 0 ) THEN
C
C Your algorithm
C
...
C
C Assign a value to VALUE for the motion displacement
C
VALUE = ...
C
C - Compute and assign the motion velocity -----
C
ELSE IF ( IORD .EQ. 1 ) THEN
C
C Your algorithm
C
...
C
C Assign a value to VALUE for the motion velocity
C
VALUE = ...
C
187