Welcome to Adams/Solver Subroutines - Kxcad.net

154
Adams/Solver
C
INTEGER ID
DOUBLE PRECISION PAR( * )
INTEGER NPAR
DOUBLE PRECISION ALPHA
INTEGER IORD
LOGICAL IFLAG
DOUBLE PRECISION VALUES( 3 )
C
C ID Identifier of calling CURVE statement
C PAR Array containing passed parameters
C NPAR Number of passed parameters
C ALPHA Curve parameter value
C IORD Derivative order of value to be returned
C IFLAG Initialization pass flag
C VALUES Derivative values of CURVE returned to ADAMS
C
C - Local variable and parameter definitions ----
C
...
C
C === Executable code =================================
C
C Assign parameters to readable variable names
C...CIF ( IFLAG ) THEN
C
C - Subroutine initialization -----------
C
...
C
ENDIF
C
C - Compute and assign the curve coordinates ----
C
IF ( IORD .EQ. 0 ) THEN
C
C Your algorithm
C
...
C
C Assign values for the X, Y, and Z coordinates
C
VALUES(1) = ...
VALUES(2) = ...
VALUES(3) = ...
C
C - Compute and assign the curve first derivatives -
C
ELSE IF ( IORD .EQ. 1 ) THEN
C
C Your algorithm
C
...
C