FEDEM Solver
R8.0
Source code of the dynamics solver
|
Module with data types and subroutines representing contact surfaces. More...
Data Types | |
type | glidercurvetype |
Data type representing the glider curve in point-to-path joints. More... | |
interface | getptrtoid |
Returns pointer to object with specified ID. More... | |
interface | writeobject |
Standard routine for writing an object to file. More... | |
Functions/Subroutines | |
type(glidercurvetype) function, pointer | getptrtoidglidercurve (array, id, index) |
Returns pointer to (first) curve with specified ID. More... | |
subroutine | writeglidercurvetype (curve, io) |
Standard routine for writing an object to io. More... | |
pure subroutine | nullifyglidercurve (curve) |
Initializes a glider curve object. More... | |
elemental subroutine | deallocateglidercurve (curve) |
Deallocates a glider curve object. More... | |
subroutine | deallocateglidercurves (crvs) |
Deallocates an array of glider curve objects. More... | |
subroutine | readglidercurves (infp, triads, curves, err) |
Initializes the glider curves with data from the solver input file. More... | |
Module with data types and subroutines representing contact surfaces.
elemental subroutine contactsurfacemodule::deallocateglidercurve | ( | type(glidercurvetype), intent(inout) | curve | ) |
Deallocates a glider curve object.
curve | The contactsurfacemodule::glidercurvetype object to deallocate |
subroutine contactsurfacemodule::deallocateglidercurves | ( | type(glidercurvetype), dimension(:), pointer | crvs | ) |
Deallocates an array of glider curve objects.
crvs | The contactsurfacemodule::glidercurvetype objects to deallocate |
date 23 Jan 2017
type(glidercurvetype) function, pointer contactsurfacemodule::getptrtoidglidercurve | ( | type(glidercurvetype), dimension(:), intent(in), target | array, |
integer, intent(in) | id, | ||
integer, intent(out), optional | index | ||
) |
Returns pointer to (first) curve with specified ID.
[in] | array | Array of contactsurfacemodule::glidercurvetype objects to search within |
[in] | id | Base ID of the object to search for |
[out] | index | The array index of the found object |
If the glider curve is not found, NULL is returned.
pure subroutine contactsurfacemodule::nullifyglidercurve | ( | type(glidercurvetype), intent(out) | curve | ) |
Initializes a glider curve object.
curve | The contactsurfacemodule::glidercurvetype object to initialize |
subroutine contactsurfacemodule::readglidercurves | ( | integer, intent(in) | infp, |
type(triadtype), dimension(:), intent(in) | triads, | ||
type(glidercurvetype), dimension(:), pointer | curves, | ||
integer, intent(out) | err | ||
) |
Initializes the glider curves 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 |
[out] | curves | Array of all glider curve objects in the model |
[out] | err | Error flag |
subroutine contactsurfacemodule::writeglidercurvetype | ( | type(glidercurvetype), intent(in) | curve, |
integer, intent(in) | io | ||
) |
Standard routine for writing an object to io.
[in] | curve | The contactsurfacemodule::glidercurvetype object to write |
[in] | io | File unit number to write to |