Welcome to Adams/Solver Subroutines - Kxcad.net

160
Adams/Solver
C
C - Evaluate differential equation ---------
C
C Your algorithms
C
...
C
C Assign a value to the variable VALUE
C
VALUE = ...
C
RETURN
END
C Style - Prototype
typedef void adams_c_DIFSUB(const struct sAdamsDiff* diff, double
TIME, int DFLAG, int IFLAG, double* RESULT);
struct sAdamsDiff
{
int ID;
int NPAR;
const double* PAR;
int STATIC_HOLD;
int IMPLICIT;
double IC_R1;
double IC_R2;
};
Examples
For an example of this subroutine, see difsub.f.
DMPSUB
The DMPSUB evaluation subroutine computes the modal damping ratios for a FLEX_BODY statement
(C++ or FORTRAN). DMPSUB is optional. You need it only if you want custom damping that is not the
same for all modes, or if the modal damping changes with time.
Use
Corresponding Statement
Calling Sequence
SUBROUTINE DMPSUB (id, time, par, npar, freq, nmode, h, cratios)