GET_FFLEX_NODETVEL subroutine returns a velocity vector for a node of FFlex body. This is an auxiliary subroutine for Nodal_Force and Nodal_Force_Ext.
Langunage type |
SubRoutine |
FORTRAN |
call get_fflex_nodetvel (ifbody,NodeSeq,MKID,nMK,Vel,ErrFlg) |
C/C++ |
get_fflex_nodetvel (ifbody,NodeSeq,MKID[2],2,Vel,&Errflg) |
Parameter information
Variable Name |
Size |
Description |
ifbody |
int |
Sequential id of FFlex body defined in RecurDyn/Solver. This is a related argument with the 5th argument of Nodal_Force_Ext subroutine. |
NodeSeq |
int |
Node sequential id defined in RecurDyn/Solver. This is a related argument with the 6th argument of Nodal_Force_Ext subroutine. |
MKID |
int [2] |
An array of integer type. Each value should be zero or a marker id. 1st value is defined as base marker. 2nd value is defined as reference marker. |
nMK |
int |
An integer variable for considering base and reference marker. If nMK is 0, then the subroutine returns a global velocity vector of NodeSeq. If nMK is 1, then the subroutine calculates a velocity vector considering base marker. If nMK is 2, then the subroutine calculates a velocity vector considering base and reference marker. |
Vel |
double [3] |
An array of double precision type. The array size must be 3. 3 values mean a relative velocity vector.
Where, is a orientation matrix of the reference marker (=MKID[1] ). is a global position vector of NodeSeq. is a global position vector of the base marker (=MKID[0]). |
Errflg |
int |
Error flag. If the result of this argument is -1 (means TRUE in Fortran logical value), there is no error. The others mean that there is an error. |