FEDEM Solver
R8.0
Source code of the dynamics solver
|
Initialization of contact element objects from the solver input file. More...
Functions/Subroutines | |
subroutine | readcontactelements (infp, triads, cSurfs, frictionSets, baseSprings, baseDampers, cElems, err) |
Initializes contact elements with data from the solver input file. More... | |
subroutine, private | initiatecontactelement (cElem, cSurf, doDebug) |
Initializes a contact element after reading the solver input file. More... | |
Initialization of contact element objects from the solver input file.
|
private |
Initializes a contact element after reading the solver input file.
cElem | The contact element to initializes | |
cSurf | The contact surface which is used by cElem | |
[in] | doDebug | If .true., print extra output to separate debug file |
This subroutine determines which contact curve domain the follower initially is in contact with, or which domain the follower initially is closest to if not initially in contact.
subroutine initiatecontactelmtypemodule::readcontactelements | ( | integer, intent(in) | infp, |
type(triadtype), dimension(:), intent(in) | triads, | ||
type(glidercurvetype), dimension(:), intent(in) | cSurfs, | ||
type(frictionparametertype), dimension(:), intent(in) | frictionSets, | ||
type(springbasetype), dimension(:), intent(in) | baseSprings, | ||
type(damperbasetype), dimension(:), intent(in) | baseDampers, | ||
type(contactelementtype), dimension(:), pointer | cElems, | ||
integer, intent(out) | err | ||
) |
Initializes contact elements with data from the solver input file.
[in] | infp | File unit number for the solver input file |
[in] | triads | Array of all triads in the model |
[in] | cSurfs | Array of all contact surfaces in the model |
[in] | frictionSets | Array of all friction parameter sets in the model |
[in] | baseSprings | Array of all spring objects in the model |
[in] | baseDampers | Array of all damper objects in the model |
[out] | cElems | Array of all contact elements in the model |
[out] | err | Error flag |