Welcome to Adams/Solver Subroutines - Kxcad.net

Welcome to Adams/Solver Subroutines
If [u,v] are the parameters corresponding to the current point on the surface, and [u*, v*] are the
parameters for the closest material point on the surface to [u,v], the penalty force that is applied in the
[u,v] domain is:
F = -K * [(u-u)2 + (v-v*)2]
K = 108
At this time, you have no control over the stiffness parameter, K.
Caution: Define the SURFACE only as a function of u, v. Do not make calls to the SYSARY and
SYSFNC utility subroutines to access other system variables.
FORTRAN - Prototype
A sample structure for SURSUB is shown next. The comments explain how the subroutine works.
SUBROUTINE SURSUB ( ID, PAR, NPAR, U, V, IORD, IFLAG,
& VALUES, IERR )
C
C Inputs:
C
INTEGER ID
DOUBLE PRECISION PAR( * )
INTEGER NPAR
DOUBLE PRECISION U,V
INTEGER IORD
LOGICAL IFLAG
C
C Outputs:
C
DOUBLE PRECISION VALUES( * )
INTEGER IERR
C
C+---------------------------------------------------------------*
C
C ID
Identifier of calling CURVE statement
C PAR Array containing passed parameters
C NPAR Number of passed parameters
C U,V Curve parameter value
C IORD Derivative order of value to be returned
C IFLAG Initialization pass flag
C VALUES Derivative values of CURVE returned to ADAMS
C IERR Return flag; 0 =(U,V) on surface
1 =(U,V) outside surface
C
C+---------------------------------------------------------------*
C
C Local Variables:
C
...
C
213