Welcome to Adams/Solver Subroutines - Kxcad.net

Input Arguments
Welcome to Adams/Solver Subroutines
id An integer variable that gives the identifier of the GSE statement
requesting information from the GSE subroutine. From the identifier,
Adams/Solver automatically recognizes other information (such as the
Par argument) that is associated with that GSE statement.
time A double-precision variable containing the current simulation time.
par A double-precision array containing the constant parameters taken in
order from the USER parenthetical list in the GSE statement.
npar An integer variable containing the number of constants in the
Function=USER(...) parenthetical list in the GSE statement.
The primary purpose is to provide the subroutine with the number of
entries in the Par array.
iflag A logical variable that is set to true when Adams/Solver calls the
subroutine during the code initialization pass. For other evaluation
subroutines, the flag is used when Adams/Solver needs functional
dependency information and normally controls calls to the SYSFNC and
SYSARY utility subroutines. Although you cannot call these routines
from any of the GSE evaluation subroutines, you can use the IFLAG
argument to control any other initialization you might need to do in the
GSE evaluation subroutine.
Output Arguments
sample_step A double-precision scalar, containing the sample step (that is, the
difference between the next sample time, and the current simulation).
Example
For an example of this subroutine, see gse_samp.f.
C Style - Prototype
typedef void adams_c_GSESUB(const struct sAdamsGSE* gse, double TIME,
int DFLAG, int IFLAG, int NSTATE, const double* STATES, int NINPUT,
const double* INPUTS, int NPUTPUT, double* STATED, double* OUTPUT);
typedef void adams_c_GSEXU(const struct sAdamsGSE* gse, double TIME,
int IFLAG, int NSTATE, const double* STATES, int NINPUT, const
double* INPUTS, int NOUTPUTS, double* DERIVS);
typedef void adams_c_GSEXX(const struct sAdamsGSE* gse, double TIME,
int IFLAG, int NSTATE, const double* STATES, int NINPUT, const
double* INPUTS, int NOUTPUTS, double* DERIVS);
typedef void adams_c_GSEYU(const struct sAdamsGSE* gse, double TIME,
int IFLAG, int NSTATE, const double* STATES, int NINPUT, const
double* INPUTS, int NOUTPUTS, double* DERIVS);
177