main Program

Uses

- ElastoPlasticityClass
- MathClass

Variables

Type	Attributes		Name		Initial
real(kind=real64)		::	sigma(3,3)
real(kind=real64)		::	e_p(3,3)
real(kind=real64)		::	params(1)
real(kind=real64)		::	s(3,3)
real(kind=real64)		::	ext_ans(3,3)
real(kind=real64)		::	app_ans(3,3)
type(IO_)		::	f
type(Random_)		::	random

Functions

function trace_sigma(CauchyStress, PlasticStrain, params) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=real64),	intent(in)			::	CauchyStress(:,:)
complex(kind=real64),	intent(in)			::	PlasticStrain(:,:)
real(kind=real64),	intent(in)			::	params(:)

Return Value complex(kind=real64)

function J2_function(CauchyStress, PlasticStrain, params) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=real64),	intent(in)			::	CauchyStress(:,:)
complex(kind=real64),	intent(in)			::	PlasticStrain(:,:)
real(kind=real64),	intent(in)			::	params(:)

Return Value complex(kind=real64)

function J3_function(CauchyStress, PlasticStrain, params) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=real64),	intent(in)			::	CauchyStress(:,:)
complex(kind=real64),	intent(in)			::	PlasticStrain(:,:)
real(kind=real64),	intent(in)			::	params(:)

Return Value complex(kind=real64)

function Lode_function(CauchyStress, PlasticStrain, params) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=real64),	intent(in)			::	CauchyStress(:,:)
complex(kind=real64),	intent(in)			::	PlasticStrain(:,:)
real(kind=real64),	intent(in)			::	params(:)

Return Value complex(kind=real64)