savereducermodule Module Reference

Module with subroutines for saving of FE model reduction results. More...

Functions/Subroutines
subroutine, public	writemodes (chname, sam, partId, modeType, nMode, ev, sv, ierr)
	Administers writing of results database for fedem_reducer. More...
subroutine, public	writedeformation (chname, sam, partId, nlc, mlc, sv, lpu, ierr)
	Administers writing of results database for fedem_partsol. More...
subroutine	writemodesheader (rdb, nMode, nbit)
	Writes modal result definitions to the temporary header files. More...
subroutine	writevectorheader (rdb, sam, nMode, nbit, ierr)
	Writes displacement vector definitions to temporary header files. More...
subroutine	writenodesheader (rdb, sam, nbit)
	Writes nodal translation definitions to the temporary header files. More...
subroutine	writedisplacementdb (rdb, sam, nComp, sv, mlc, lpu, ierr)
	Writes nodal displacements to the results database file. More...

Variables
integer, save	idval
integer, dimension(2), save	idvec
integer, save	iddis
integer, save	id3dof

Detailed Description

Module with subroutines for saving of FE model reduction results.

This module contains a collection of subroutines for writing results data from the FE model reduction process or direct linear solve to the results database.

Function/Subroutine Documentation

writedeformation()

subroutine, public savereducermodule::writedeformation	(	character*(*), intent(in)	chname,
		type(samtype), intent(in)	sam,
		integer, intent(in)	partId,
		integer, intent(in)	nlc,
		integer, dimension(:), intent(in)	mlc,
		real(dp), dimension(:,:), intent(in)	sv,
		integer, intent(in)	lpu,
		integer, intent(out)	ierr
	)

Administers writing of results database for fedem_partsol.

Parameters

[in]	chname	Name of frs-file receiving the results data
[in]	sam	Data for managing system matrix assembly
[in]	partId	Base ID of the FE part
[in]	nlc	Number of load cases
[in]	mlc	Load case identifiers
[in]	sv	Displacement vector in equation order
[in]	lpu	File unit number for res-file output
[out]	ierr	Error flag

Author

Knut Morten Okstad

Date

19 Mar 2018

writedisplacementdb()

subroutine savereducermodule::writedisplacementdb	(	type(rdbtype), intent(inout)	rdb,
		type(samtype), intent(in)	sam,
		integer, intent(in)	nComp,
		real(dp), dimension(:,:), intent(in)	sv,
		integer, dimension(:), intent(in), optional	mlc,
		integer, intent(in), optional	lpu,
		integer, intent(out)	ierr
	)

Writes nodal displacements to the results database file.

Parameters

	rdb	Results database file for displacement output
[in]	sam	Data for managing system matrix assembly
[in]	nComp	Number of load cases or mode shapes
[in]	sv	Displacement vector in equation order
[in]	mlc	Load case identifiers
[in]	lpu	File unit number for res-file output
[out]	ierr	Error flag

Author

Knut Morten Okstad

Date

4 Oct 2002

Here is the call graph for this function:

Here is the caller graph for this function:

writemodes()

subroutine, public savereducermodule::writemodes	(	character*(*), intent(in)	chname,
		type(samtype), intent(in)	sam,
		integer, intent(in)	partId,
		character*(*), intent(in)	modeType,
		integer, intent(in)	nMode,
		real(dp), dimension(:), intent(in)	ev,
		real(dp), dimension(:,:), intent(in)	sv,
		integer, intent(out)	ierr
	)

Administers writing of results database for fedem_reducer.

Parameters

[in]	chname	Name of frs-file receiving the results data
[in]	sam	Data for managing system matrix assembly
[in]	partId	Base ID of the FE part
[in]	modeType	Name of eigenmode item group
[in]	nMode	Number of eigenmodes
[in]	ev	Eigenvalues
[in]	sv	Eigenvectors
[out]	ierr	Error flag

Author

Knut Morten Okstad

Date

4 Oct 2002

writemodesheader()

subroutine savereducermodule::writemodesheader	(	type(rdbtype), intent(inout)	rdb,
		integer, intent(in)	nMode,
		integer, intent(in)	nbit
	)

Writes modal result definitions to the temporary header files.

Parameters

	rdb	Results database file for modes output
[in]	nMode	Number of mode shapes
[in]	nbit	Number of bits per real word

Author

Knut Morten Okstad

Date

4 Oct 2002

Here is the caller graph for this function:

writenodesheader()

subroutine savereducermodule::writenodesheader	(	type(rdbtype), intent(inout)	rdb,
		type(samtype), intent(in)	sam,
		integer, intent(in)	nbit
	)

Writes nodal translation definitions to the temporary header files.

Parameters

	rdb	Results database file for displacement output
[in]	sam	Data for managing system matrix assembly
[in]	nbit	Number of bits per real word

Author

Knut Morten Okstad

Date

4 Oct 2002

Here is the caller graph for this function:

writevectorheader()

subroutine savereducermodule::writevectorheader	(	type(rdbtype), intent(inout)	rdb,
		type(samtype), intent(in)	sam,
		integer, intent(in)	nMode,
		integer, intent(in)	nbit,
		integer, intent(out), optional	ierr
	)

Writes displacement vector definitions to temporary header files.

Parameters

	rdb	Results database file for displacement output
[in]	sam	Data for managing system matrix assembly
[in]	nMode	Number of mode shapes/flag (see below)
[in]	nbit	Number of bits per real word
[out]	ierr	Error flag

If nMode > 0, we are writing eigenmode shape vectors and its value indicates the number of mode shapes to write. If nMode equals zero, we are writing the displacement response for visualization use (translational DOF components only). If nMode < 0 the entire displacement vector is stored (including rotational DOFs).

Author

Knut Morten Okstad

Date

4 Oct 2002

Here is the caller graph for this function:

Variable Documentation

id3dof

integer, save savereducermodule::id3dof

private

iddis

integer, save savereducermodule::iddis

private

idval

integer, save savereducermodule::idval

private

idvec

integer, dimension(2), save savereducermodule::idvec

private