Welcome to Adams/Solver Subroutines - Kxcad.net

192
Adams/Solver
include the FUNCTION=USER() argument in the REQUEST statement and define the request output in
a REQSUB.
REQSUB passes back an array of eight values. You can call any utility subroutine from REQSUB to
make any element in the result array functionally dependent on system displacements, velocities,
accelerations, forces, user-defined differential variables, or on-spline data.
Tip: If the SYSARY or SYSFNC utility subroutine is called to access angular displacements,
the values returned by them may contain discontinuities. To avoid the discontinuities, use
the RCNVRT utility subroutine to convert the rotational angles from Euler angles to some
other set of rotational coordinates that does not encounter a singularity.
FORTRAN - Prototype
A sample structure for REQSUB is shown next. The comments explain how the subroutine works.
SUBROUTINE REQSUB ( ID, TIME, PAR, NPAR, IFLAG,
& RESULT )
C
C === Type and dimension statements ===================
C
C - External variable definitions ---------
C
INTEGER ID
DOUBLE PRECISION TIME
DOUBLE PRECISION PAR( * )
INTEGER NPAR
LOGICAL IFLAG
DOUBLE PRECISION RESULT( 8 )
C
C ID Identifier of calling REQUEST statement
C TIME Current time
C PAR Array of passed statement parameters
C NPAR Number of passed parameters
C IFLAG Initialization pass flag
C RESULT Array of values returned to ADAMS
C
C - Local variable definitions -----------
C
...
C
C === Executable code =================================
C
C Assign parameter values to readable variable names
C
...
C
IF( IFLAG ) THEN
C
C - Subroutine initialization -----------
C
...