Welcome to Adams/Solver Subroutines - Kxcad.net

166
Adams/Solver
LOGICAL IFLAG
DOUBLE PRECISION FIELD( 6 )
DOUBLE PRECISION DFDDIS( 6, 6 )
DOUBLE PRECISION DFDVEL( 6, 6 )
C
C ID Identifier of calling FIELD statement
C TIME Current time
C PAR Array of passed statement parameters
C NPAR Number of passed parameters
C DISP Array of I with respect to J displacements
C VELO Array of I with respect to J velocities
C DFLAG Differencing flag
C IFLAG Initialization pass flag
C FIELD Array of field values
C DFDDIS Displacement partial derivatives
C DFDVEL Velocity partial derivatives
C
C - Local variable definitions -----------
C
...
C
C === Executable code =================================
C
C Assign readable variable names to passed parameters
C
...
C
IF ( IFLAG ) THEN
C
C - Subroutine initialization -----------
C
...
C
ENDIF
C
C - Calculate field component forces --------
C
C X translation field force
C
...
FIELD(1) = ...
C
C Y translation field force
C
...
FIELD(2) = ...
C
C Z translation field force
C
...
FIELD(3) = ...
C
C - Calculate field component torques -------
C