FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
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.