FrontISTR  5.2.0
Large-scale structural analysis program with finit element method
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. More...
 
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 More...
 
subroutine fstr_matrix_con_contact::getoriginallistofrelatednodes (np, num_lagrange)
 Get original list of related nodes. More...
 
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. More...
 
subroutine fstr_matrix_con_contact::constructnewmatrixstructure (hecMAT, fstrMAT, numNon0_node, numNon0_lagrange, conMAT)
 Construct new stiffness matrix structure. More...
 
subroutine fstr_matrix_con_contact::fstr_copy_lagrange_contact (fstrSOLID, fstrMAT)
 Copy Lagrange multipliers. More...
 
logical function fstr_matrix_con_contact::fstr_is_matrixstruct_symmetric (fstrSOLID, hecMESH)
 this function judges whether sitiffness matrix is symmetric or not More...
 

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 More...
 
type(noderelated), dimension(:), pointer, save fstr_matrix_con_contact::list_noderelated_org => null()
 original structure of matrix More...
 
type(noderelated), dimension(:), pointer fstr_matrix_con_contact::list_noderelated => null()
 current structure of matrix More...
 
logical fstr_matrix_con_contact::permission = .false.