fstr_matrix_con_contact Module Reference

This module provides functions of reconstructing. More...

Functions/Subroutines
integer(kind=kint) function, public	fstr_get_num_lagrange_pernode (algtype)
subroutine, public	fstr_save_originalmatrixstructure (hecMAT)
	This subroutine saves original matrix structure constructed originally by hecMW_matrix. More...
subroutine, public	fstr_mat_con_contact (cstep, contact_algo, hecMAT, fstrSOLID, hecLagMAT, infoCTChange, conMAT, is_contact_active_flag)
	this subroutine reconstructs node-based (stiffness) matrix structure \corresponding to contact state More...
logical function, public	fstr_is_matrixstruct_symmetric (fstrSOLID, hecMESH)
	this function judges whether sitiffness matrix is symmetric or not More...
subroutine, public	fstr_set_lagrange_diagonal (hecLagMAT, ilag, value)
	Set diagonal component value for specified Lagrange multiplier. More...
real(kind=kreal) function, public	fstr_get_lagrange_diagonal (hecLagMAT, ilag)
	Get diagonal component value for specified Lagrange multiplier. More...

Detailed Description

This module provides functions of reconstructing.

Function/Subroutine Documentation

fstr_get_lagrange_diagonal()

real(kind=kreal) function, public fstr_matrix_con_contact::fstr_get_lagrange_diagonal	(	type(hecmwst_matrix_lagrange), intent(in)	hecLagMAT,
		integer(kind=kint), intent(in)	ilag
	)

Get diagonal component value for specified Lagrange multiplier.

Parameters

[in]	heclagmat	hecmwST_matrix_lagrange
[in]	ilag	Lagrange multiplier index (1-based)

Definition at line 306 of file fstr_mat_con_contact.f90.

fstr_get_num_lagrange_pernode()

integer(kind=kint) function, public fstr_matrix_con_contact::fstr_get_num_lagrange_pernode

(

integer(kind=kint)

algtype

)

Parameters

algtype

current loading step

Definition at line 34 of file fstr_mat_con_contact.f90.

Here is the caller graph for this function:

fstr_is_matrixstruct_symmetric()

logical function, public fstr_matrix_con_contact::fstr_is_matrixstruct_symmetric	(	type(fstr_solid )	fstrSOLID,
		type(hecmwst_local_mesh)	hecMESH
	)

this function judges whether sitiffness matrix is symmetric or not

Definition at line 266 of file fstr_mat_con_contact.f90.

Here is the caller graph for this function:

fstr_mat_con_contact()

subroutine, public fstr_matrix_con_contact::fstr_mat_con_contact	(	integer(kind=kint)	cstep,
		integer(kind=kint)	contact_algo,
		type(hecmwst_matrix)	hecMAT,
		type(fstr_solid)	fstrSOLID,
		type(hecmwst_matrix_lagrange)	hecLagMAT,
		type(fstr_info_contactchange)	infoCTChange,
		type (hecmwst_matrix)	conMAT,
		logical, intent(in)	is_contact_active_flag
	)

this subroutine reconstructs node-based (stiffness) matrix structure \corresponding to contact state

Parameters

cstep	current loading step
contact_algo	current loading step
hecmat	type hecmwST_matrix
fstrsolid	type fstr_solid
heclagmat	type hecmwST_matrix_lagrange
infoctchange	type fstr_contactChange

Definition at line 55 of file fstr_mat_con_contact.f90.

Here is the call graph for this function:

Here is the caller graph for this function:

fstr_save_originalmatrixstructure()

subroutine, public fstr_matrix_con_contact::fstr_save_originalmatrixstructure

(

type(hecmwst_matrix)

hecMAT

)

This subroutine saves original matrix structure constructed originally by hecMW_matrix.

Parameters

hecmat

type hecmwST_matrix

Definition at line 44 of file fstr_mat_con_contact.f90.

Here is the caller graph for this function:

fstr_set_lagrange_diagonal()

subroutine, public fstr_matrix_con_contact::fstr_set_lagrange_diagonal	(	type(hecmwst_matrix_lagrange), intent(inout)	hecLagMAT,
		integer(kind=kint), intent(in)	ilag,
		real(kind=kreal), intent(in)	value
	)

Set diagonal component value for specified Lagrange multiplier.

Parameters

[in,out]	heclagmat	hecmwST_matrix_lagrange
[in]	ilag	Lagrange multiplier index (1-based)
[in]	value	diagonal component value to set

Definition at line 286 of file fstr_mat_con_contact.f90.