Welcome to Adams/Solver Subroutines - Kxcad.net

Welcome to Adams/Solver Subroutines
C
C - External variable definitions ---------
C
INTEGER ID
DOUBLE PRECISION TIME
DOUBLE PRECISION PAR( * )
INTEGER NPAR
LOGICAL IFLAG
DOUBLE PRECISION VALUE
C
C ID Identifier of calling SENSOR statement
C TIME Current time
C PAR Array of passed statement parameters
C NPAR Number of passed parameters
C IFLAG Initialization pass flag
C VALUE The returned value of the sensor
C
C - Local variable definitions -----------
C
...
C
C === Executable code =================================
C
C Assign parameter values to readable variables
C
...
C
IF( IFLAG ) THEN
C
C - Subroutine initialization -----------
C
...
C
ENDIFCC - Evaluate sensor ----------------
C
C Your algorithm
C
...
C
C Assign the returned value
C
VALUE = ...
C
RETURN
END
C Style - prototype
typedef void adams_c_SENSUB(const struct sAdamsSensor* sensor, double
TIME, int IFLAG, double* OUTPUT);
/*
* SENSOR -------------------------------------------------
----------------
197