beamaux.f File Reference

Auxilliary subroutines for beam finite elements. More...

Functions/Subroutines
subroutine	mprt30 (A, MA, NA, IW)
	Prints the rectangular matrix A(MA,NA) to unit IW. More...
subroutine	dcos30 (C, X, Y, Z, PHI)
	Computes a global-to-local transformation matrix. More...
subroutine	mpro30 (EK, C, M)
	Performs a congruence transformation of a symmetric matrix. More...
subroutine	trix30 (A, X1, Y1, Z1, X2, Y2, Z2)
	Transforms an element matrix from end points to nodal points. More...
subroutine	dirc30 (C, X, Y, Z)
	Computes a global-to-local transformation matrix. More...

Detailed Description

Auxilliary subroutines for beam finite elements.

Function/Subroutine Documentation

dcos30()

subroutine dcos30	(	double precision, dimension(3,3)	C,
		double precision, dimension(3)	X,
		double precision, dimension(3)	Y,
		double precision, dimension(3)	Z,
		double precision	PHI
	)

Computes a global-to-local transformation matrix.

The local X-axis is defined from point 1 to point 2. Point 3 is then used to define the local XZ-plane.

dirc30()

subroutine dirc30	(	double precision, dimension(3,3)	C,
		double precision, dimension(3)	X,
		double precision, dimension(3)	Y,
		double precision, dimension(3)	Z
	)

Computes a global-to-local transformation matrix.

The local X-axis is defined from point 1 to point 2. Point 3 is then used to define the local XY-plane.

mpro30()

subroutine mpro30	(	double precision, dimension(m,m)	EK,
		double precision, dimension(3,3)	C,
		integer	M
	)

Performs a congruence transformation of a symmetric matrix.

EK=P'*EK*P where P is the transformation matrix consisting of C repeated along the diagonal and zero elsewhere.

mprt30()

subroutine mprt30	(	double precision, dimension(ma,na)	A,
		integer	MA,
		integer	NA,
		integer	IW
	)

Prints the rectangular matrix A(MA,NA) to unit IW.

trix30()

subroutine trix30	(	double precision, dimension(12,12)	A,
		double precision	X1,
		double precision	Y1,
		double precision	Z1,
		double precision	X2,
		double precision	Y2,
		double precision	Z2
	)

Transforms an element matrix from end points to nodal points.