Welcome to Adams/Solver Subroutines - Kxcad.net

62
Adams/Solver
Calling Sequence
CALL GTUNTS (exist, scales, units)
Output Arguments
exist A logical variable that, if true, indicates units were set for the model.
scales A double-precision array containing conversion factors to go from model
units to SI for time, length, force, and mass.
units A character*2 array containing two-letter abbreviations for the model units
for time, length, force, and mass.
Example For example, if you have an Aero_Force defined in Newtons, and you want to convert to model
units, you must divide your force by scales(3).
DOUBLE PRECISION SCALES(4)
LOGICAL EXIST
CHARACTER*2 UNITS(4)
INTEGER TIME, LENGTH, FORCE, MASS PARAMETER
(TIME=1,LENGTH=2,FORCE=3, MASS=4)
CALL GTUNTS(EXIST, SCALES, UNITS)
Model_Force = Aero_Force/SCALES(FORCE)
To compute a spring in MKS units, give disp, flen, and K in model units:
MKS_F = ((flen - disp)*K)*SCALES(FORCE) VSIN
Caution: GTUNTS uses the UNITS statement in your dataset to determine the units being used in
your model. When a UNITS statement is missing, or if you use a unit consistency factor
(UCF), GTUNTS is not able to determine time, length, mass, or force units. In that case,
GTUNTS returns:
The HAVSIN general subroutine evaluates a haversine function.
Use
Called By
• exist = FALSE
Any user-written subroutine
• scales = 1.0, 1.0, 1.0, 1.0
• units = US