assemble_static_system Interface

public interface assemble_static_system

Contents

Module Procedures

assemble_static_system_dense assemble_static_system_csr

Module Procedures

private subroutine assemble_static_system_dense(gdof, elements, nodes, k, rule)

Assembles a dense global stiffness matrix.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int32),	intent(in)			::	gdof	The total number of global degrees of freedom.
class(element),	intent(in)			::	elements(:)	The finite elements to assemble.
class(node),	intent(in),		dimension(:)	::	nodes	The global node list.
real(kind=real64),	intent(out),		allocatable	::	k(:,:)	The assembled global stiffness matrix.
integer(kind=int32),	intent(in),	optional		::	rule	The numerical integration rule.

private subroutine assemble_static_system_csr(gdof, elements, nodes, k, rule)

Assembles the global stiffness matrix in CSR format.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=int32),	intent(in)			::	gdof	The total number of global degrees of freedom.
class(element),	intent(in)			::	elements(:)	The finite elements to assemble.
class(node),	intent(in),		dimension(:)	::	nodes	The global node list.
type(csr_matrix),	intent(out)			::	k	The assembled global stiffness matrix in CSR format.
integer(kind=int32),	intent(in),	optional		::	rule	The numerical integration rule.