MP/Source/arruda_boyce.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	arruda_boyce (Cij, S11, S22, S33, S12, S23, S13, ielem, mu, kappa)
subroutine	solve_x (x, xmu, i, stretch)
subroutine	rs (nm, n, a, w, matz, z, fv1, fv2, ierr)
REAL *8 function	pythag (a, b)
subroutine	tql1 (n, d, e, ierr)
subroutine	tql2 (nm, n, d, e, z, ierr)
subroutine	tred1 (nm, n, a, d, e, e2)
subroutine	tred2 (nm, n, a, d, e, z)

Function/Subroutine Documentation

subroutine arruda_boyce	(	real*8, dimension(3,3)	Cij,
		real*8	S11,
		real*8	S22,
		real*8	S33,
		real*8	S12,
		real*8	S23,
		real*8	S13,
		integer	ielem,
		real*8	mu,
		real*8	kappa
	)

Definition at line 53 of file MP/Source/arruda_boyce.f90.

References j, k, n, Aff_transformation_repS2< FT >::print(), rs(), solve_x(), and sqrt().

Here is the call graph for this function:

REAL*8 function pythag	(	real*8	a,
		real*8	b
	)

Definition at line 330 of file MP/Source/arruda_boyce.f90.

References Line_2< R, T >::a(), Color::b(), pythag(), Color::r(), and s.

Here is the call graph for this function:

subroutine rs	(	integer	nm,
		integer	n,
		real*8, dimension(nm,n)	a,
		real*8, dimension(n)	w,
		integer	matz,
		real*8, dimension(nm,n)	z,
		real*8, dimension(n)	fv1,
		real*8, dimension(n)	fv2,
		integer	ierr
	)

Definition at line 259 of file MP/Source/arruda_boyce.f90.

References Line_2< R, T >::a(), n, tql1(), tql2(), tred1(), tred2(), and z.

Here is the call graph for this function:

subroutine solve_x	(	real*8	x,
		real*8	xmu,
		integer	i,
		real*8, dimension(3)	stretch
	)

Definition at line 203 of file MP/Source/arruda_boyce.f90.

References d, dx, i, k, Aff_transformation_repS2< FT >::print(), StopWatch::stop(), and x.

Here is the call graph for this function:

subroutine tql1	(	integer	n,
		real*8, dimension(n)	d,
		real*8, dimension(n)	e,
		integer	ierr
	)

Definition at line 361 of file MP/Source/arruda_boyce.f90.

References Line_2< R, T >::c(), d, Color::g(), i, j, Aff_transformation_2< R_ >::m(), n, pythag(), Color::r(), s, and sign().

Here is the call graph for this function:

subroutine tql2	(	integer	nm,
		integer	n,
		real*8, dimension(n)	d,
		real*8, dimension(n)	e,
		real*8, dimension(nm,n)	z,
		integer	ierr
	)

Definition at line 512 of file MP/Source/arruda_boyce.f90.

References Line_2< R, T >::c(), d, Color::g(), i, j, k, Aff_transformation_2< R_ >::m(), n, pythag(), Color::r(), s, sign(), and z.

Here is the call graph for this function:

subroutine tred1	(	integer	nm,
		integer	n,
		real*8, dimension(nm,n)	a,
		real*8, dimension(n)	d,
		real*8, dimension(n)	e,
		real*8, dimension(n)	e2
	)

Definition at line 697 of file MP/Source/arruda_boyce.f90.

References Line_2< R, T >::a(), d, Color::g(), i, j, k, n, Transfer_base::scale(), sign(), and sqrt().

Here is the call graph for this function:

subroutine tred2	(	integer	nm,
		integer	n,
		real*8, dimension(nm,n)	a,
		real*8, dimension(n)	d,
		real*8, dimension(n)	e,
		real*8, dimension(nm,n)	z
	)

Definition at line 843 of file MP/Source/arruda_boyce.f90.

References Line_2< R, T >::a(), d, Color::g(), i, j, k, n, Transfer_base::scale(), sign(), sqrt(), and z.

Here is the call graph for this function: