Welcome to Adams/Solver Subroutines - Kxcad.net

C - Evaluate Normal Force components -------------
C
C Your algorithms
C
...
C
C Assign values to the RESULT array
C
RESULT(1) = ...
RESULT(2) = ...
RESULT(3) = ...
C
RETURN
END
Welcome to Adams/Solver Subroutines
C Style - Prototype
typedef void adams_c_CNFSUB(const struct sAdamsContactFriction* fric,
double TIME, const double* LOCI, const double* NI, const double*
LOCJ, const double* NJ, double GAP, double GAPDOT, double GAPDOTDOT,
double AREA, int DFLAG, int IFLAG, double* VALUES );
typedef void STDCALL adams_f77_CNFSUB(const int* ID, const double*
TIME, const double* PAR, const int* NPAR, const double* LOCI, const
double* NI, const double* LOCJ, const double* NJ, const double* GAP,
const double* GAPDOT, const double* GAPDOTDOT, const double* AREA,
const int* DFLAG, const int* IFLAG, double* VALUES );
struct sAdamsContact
{
int ID;
int nIGEOM;
int nJGEOM;
int* IGEOM;
int* JGEOM;
int* IFLIP_GEOM;
int* JFLIP_GEOM;
};
struct sAdamsContactFriction
{
struct sAdamsContact contact;
int NPAR;
const double* PAR;
};
CONSUB
The CONSUB driver subroutine can be used to control an Adams simulation from within a user
subroutine. Interactively issuing the CONTROL command (C++ or FORTRAN) invokes CONSUB.
Other user-written subroutines cannot call CONSUB.
139