Welcome to Adams/Solver Subroutines - Kxcad.net

138
Adams/Solver
DOUBLE PRECISION GAPDOTDOT
DOUBLE PRECISION AREA
LOGICAL DFLAG
LOGICAL IFLAG
DOUBLE PRECISION RESULT(3)
C
C Input parameters
C
C ID Identifier of calling CONTACT statement
C TIME Current time
C PAR Array containing passed parameters
C NPAR Number of passed parameters
C LOCI contact point location on I in I coordinates
C NI contact normal on I in I coordinates
C LOCI contact point location on J in J coordinates
C NI contact normal on J in J coordinates
C GAP contact penetration
C GAPDOT first time derivative of GAP
C GAPDOTDOT second time derivative of GAP CAREA contact area
C
C components returned to ADAMSC
C RESULT Array (dimension 3) of computed normal force
C RESULT(1) Normal forceC RESULT(2) not used
C RESULT(3) not used
C
C ---Local variable and parameter definitions ------
C ...
C
C === Executable code =================================
C
C Assign readable variable names to passed parameters
C ...
C
C Call SYSFNC and/or SYSARY to collect information for
C the following calculations. Note: if IFLAG is
C true, these calls are actually setting functional
C dependencies.
C
CALL SYSFNC (...)
C Check SYSFNC call through ERRMES utility routine
C
CALL ERRMES (...)
C
C Repeat for all required SYSFNC or SYSARY calls
C
...
C
IF (IFLAG) THENC
C - Subroutine initialization -------------
C
...
C
ENDIF
C