mod_assembly_c Module

Uses

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Contents

Subroutines

assembleElementalMatrix1D_c assembleElementalMatrix2D_c assemble1D_c assemble2D_c

Subroutines

private subroutine assembleElementalMatrix1D_c(N, d1, d2, xy, Ie) bind(c, name="0")

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=c_int),	intent(in),		value	::	N
integer(kind=c_int),	intent(in),		value	::	d1
integer(kind=c_int),	intent(in),		value	::	d2
real(kind=c_double),	intent(in)			::	xy(N)
real(kind=c_double),	intent(inout)			::	Ie(N,N)

private subroutine assembleElementalMatrix2D_c(N, d1, d2, xy, Ie) bind(c, name="0")

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=c_int),	intent(in),		value	::	N
integer(kind=c_int),	intent(in),		value	::	d1
integer(kind=c_int),	intent(in),		value	::	d2
real(kind=c_double),	intent(in)			::	xy(N,2)
real(kind=c_double),	intent(inout)			::	Ie(N,N)

private subroutine assemble1D_c(num_cells, num_pts_per_cell, num_pts, points, cells, diff, vel, GlobalA) bind(c, name="0")

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=c_int),	intent(in),		value	::	num_cells
integer(kind=c_int),	intent(in),		value	::	num_pts_per_cell
integer(kind=c_int),	intent(in),		value	::	num_pts
real(kind=c_double),	intent(in)			::	points(num_pts)
integer(kind=c_int),	intent(in)			::	cells(num_cells,num_pts_per_cell)
real(kind=c_double),	intent(in),		value	::	diff
real(kind=c_double),	intent(in),		value	::	vel
real(kind=c_double),	intent(inout)			::	GlobalA(num_pts,num_pts)

private subroutine assemble2D_c(num_cells, num_pts_per_cell, num_pts, points, cells, diff, vel, GlobalA) bind(c, name="0")

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=c_int),	intent(in),		value	::	num_cells
integer(kind=c_int),	intent(in),		value	::	num_pts_per_cell
integer(kind=c_int),	intent(in),		value	::	num_pts
real(kind=c_double),	intent(in)			::	points(num_pts,2)
integer(kind=c_int),	intent(in)			::	cells(num_cells,num_pts_per_cell)
real(kind=c_double),	intent(in),		value	::	diff
real(kind=c_double),	intent(in)			::	vel(2)
real(kind=c_double),	intent(inout)			::	GlobalA(num_pts,num_pts)