fstr_mat_con_contact.f90 File Reference

Go to the source code of this file.

Data Types
type	fstr_matrix_con_contact::noderelated
	Structure for defining stiffness matrix structure. More...
type	fstr_matrix_con_contact::fstrst_matrix_contact_lagrange
	Structure for Lagrange multiplier-related part of stiffness matrix (Lagrange multiplier-related matrix) More...

Modules
module	fstr_matrix_con_contact
	This module provides functions of reconstructing.

Functions/Subroutines
subroutine	fstr_matrix_con_contact::fstr_save_originalmatrixstructure (hecmat)
	This subroutine saves original matrix structure constructed originally by hecMW_matrix.
subroutine	fstr_matrix_con_contact::fstr_mat_con_contact (cstep, hecmat, fstrsolid, fstrmat, infoctchange, conmat)
	this subroutine reconstructs node-based (stiffness) matrix structure \corresponding to contact state
subroutine	fstr_matrix_con_contact::getoriginallistofrelatednodes (np, num_lagrange)
	Get original list of related nodes.
subroutine	fstr_matrix_con_contact::getnewlistofrelatednodesandlagrangemultipliers (cstep, np, fstrsolid, countnon0lu_node, countnon0lu_lagrange)
	Construct new list of related nodes and Lagrange multipliers. Here, a procedure similar to HEC_MW is used.
subroutine	fstr_matrix_con_contact::constructnewmatrixstructure (hecmat, fstrmat, numnon0_node, numnon0_lagrange, conmat)
	Construct new stiffness matrix structure.
subroutine	fstr_matrix_con_contact::fstr_copy_lagrange_contact (fstrsolid, fstrmat)
	Copy Lagrange multipliers.
logical function	fstr_matrix_con_contact::fstr_is_matrixstruct_symmetric (fstrsolid, hecmesh)
	this function judges whether sitiffness matrix is symmetric or not

Variables
integer(kind=kint), save	fstr_matrix_con_contact::npl_org
integer(kind=kint), save	fstr_matrix_con_contact::npu_org
	original number of non-zero items
type(noderelated), dimension(:), pointer, save	fstr_matrix_con_contact::list_noderelated_org => null()
	original structure of matrix
type(noderelated), dimension(:), pointer	fstr_matrix_con_contact::list_noderelated => null()
	current structure of matrix
logical	fstr_matrix_con_contact::permission = .false.