Welcome to Adams/Solver Subroutines - Kxcad.net

232
Adams/Solver
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 calculations below. Note: if IFLAG is true, these
C calls are actually setting functional dependencies.
C
CALL SYSFNC (...)
C
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) THEN
C
C - Subroutine initialization -------------
C
...
C
ENDIF
C
C - Evaluate VFORCE components ------------
C
C Your algorithms
C
...
C
C Assign values to the RESULT array
C
RESULT(1) = ...
RESULT(2) = ...
RESULT(3) = ...
C
RETURN
END
C Style - Prototype
typedef void adams_c_VFOSUB(const struct sAdamsVforce* vfo, double
TIME, int DFLAG, int IFLAG, double* RESULT);
/*
* VFORCE -------------------------------------------------
----------------