samreducermodule Module Reference

Initialisation of the SAM data structure for the FE part reducer. More...

Functions/Subroutines
subroutine, private	beampinconstraints (madof, mpbeam, mpmnpc, mmnpc, msc, minex, nceq, nmmceq, mpmceq, mmceq, ttcc, nxnod, lpu, ierr)
	Establishes constraint equations associated with beam pin flags. More...
subroutine	initiatesam (sam, tncoor, linearSolve, ipsw, lpu, ierr)
	Initializes the SAM data structure for fedem_reducer. More...
subroutine	savesam (filename, chksum, sam, ierr)
	Writes arrays of the SAM data structure to binary file. More...

Detailed Description

Initialisation of the SAM data structure for the FE part reducer.

Function/Subroutine Documentation

beampinconstraints()

subroutine, private samreducermodule::beampinconstraints ( integer, dimension(:), intent(in)  madof, integer, dimension(:), intent(in)  mpbeam, integer, dimension(:), intent(in)  mpmnpc, integer, dimension(:), intent(inout)  mmnpc, integer, dimension(:), intent(in)  msc, integer, dimension(:), intent(inout)  minex, integer, intent(inout)  nceq, integer, intent(inout)  nmmceq, integer, dimension(:), intent(inout)  mpmceq, integer, dimension(:), intent(inout)  mmceq, real(dp), dimension(:), intent(inout)  ttcc, integer, intent(in)  nxnod, integer, intent(in)  lpu, integer, intent(out)  ierr  )

private

Establishes constraint equations associated with beam pin flags.

Parameters

[in]	madof	Matrix of accumulated DOFs
[in]	mpbeam	Matrix of IDs for beam elements with pin flags
[in]	mpmnpc	Matrix of pointers to MNPCs
	mmnpc	Matrix of nodal point correspondances
[in]	msc	Matrix of status codes
	minex	Matrix of internal to external node number mapping
	nceq	Number of constraint equations
	nmmceq	Number of elements in MMCEQ
	mpmceq	Matrix of pointers to MCEQs
	mmceq	Matrix of constraint equation definitions
	ttcc	Table of constraint equation coefficients
[in]	nxnod	Number of extra nodes to account for beam pin flags
[in]	lpu	File unit number for res-file output
[out]	ierr	Error flag

This subroutine appends the constraint equations accounting for beam pin flags to the linear coupling information arrays, MPMCEQ, MMCEQ and TTCC of sammodule::samtype. The element topology array (MMNPC) is also modified for the affected beam elements.

Author

Knut Morten Okstad

Date

16 Sep 2002

Here is the call graph for this function:

Here is the caller graph for this function:

initiatesam()

subroutine samreducermodule::initiatesam	(	type(samtype), intent(out)	sam,
		real(dp), dimension(:,:), pointer	tncoor,
		logical, intent(in)	linearSolve,
		integer, intent(in)	ipsw,
		integer, intent(in)	lpu,
		integer, intent(out)	ierr
	)

Initializes the SAM data structure for fedem_reducer.

Parameters

[out]	sam	Data for managing system matrix assembly
[out]	tncoor	Table of nodal coordinates of the FE model
[in]	linearSolve	If .true., we are doing a direct linear solve
[in]	ipsw	Print switch for debug output
[in]	lpu	File unit number for res-file output
[out]	ierr	Error flag

Author

Knut Morten Okstad

Date

20 Sep 2000

Here is the call graph for this function:

Here is the caller graph for this function:

savesam()

subroutine samreducermodule::savesam	(	character*(*), intent(in)	filename,
		integer, intent(in)	chksum,
		type(samtype), intent(in)	sam,
		integer, intent(out)	ierr
	)

Writes arrays of the SAM data structure to binary file.

Parameters

[in]	filename	Name of binary file to store the SAM data in
[in]	chksum	Checksum value for the FE part owing the sam object
[in]	sam	Data for managing system matrix assembly
[out]	ierr	Error flag

Author

Knut Morten Okstad

Date

29 Sep 2000

Here is the caller graph for this function: