savereducermodule Module Reference

Functions/Subroutines
subroutine, public	writemodes (chname, sam, partId, modeType, nMode, ev, sv, ierr)
subroutine, public	writedeformation (chname, sam, partId, nlc, mlc, sv, lpu, ierr)
subroutine	writemodesheader (rdb, nMode, nbit)
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

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
	)

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
	)

writemodesheader()

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

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