prec Module Reference

Interfaces DAMASK with MSC.Marc. More...

Data Types
type	group_float
	variable length datatype used for storage of state More...
type	group_int
type	thomogmapping
type	tplasticstate
type	tsourcestate
type	tstate

Functions/Subroutines
subroutine	prec_init
	reporting precision More...
logical elemental pure function	deq (a, b, tol)
	equality comparison for float with double precision More...
logical elemental pure function	dneq (a, b, tol)
	inequality comparison for float with double precision More...
logical elemental pure function	deq0 (a, tol)
	equality to 0 comparison for float with double precision More...
logical elemental pure function	dneq0 (a, tol)
	inequality to 0 comparison for float with double precision More...
logical elemental pure function	ceq (a, b, tol)
	equality comparison for complex with double precision More...
logical elemental pure function	cneq (a, b, tol)
	inequality comparison for complex with double precision More...
subroutine, private	unittest
	check correctness of some prec functions More...

Variables
integer, parameter	preal = IEEE_selected_real_kind(15, 307)
	number with 15 significant digits, up to 1e+-307 (typically 64 bit) More...
integer, parameter	pint = selected_int_kind(18)
	number with at least up to +-1e18 (typically 64 bit) More...
integer, parameter	plongint = selected_int_kind(18)
	number with at least up to +-1e18 (typically 64 bit) More...
integer, parameter	pstringlen = 256
	default string length More...
integer, parameter	ppathlen = 4096
	maximum length of a path name on linux More...
real(preal), parameter	tol_math_check = 1.0e-8_pReal
	tolerance for internal math self-checks (rotation) More...
real(preal), parameter, private	preal_epsilon = epsilon(0.0_pReal)
	minimum positive number such that 1.0 + EPSILON /= 1.0. More...
real(preal), parameter, private	preal_min = tiny(0.0_pReal)
	smallest normalized floating point number More...
integer, dimension(0), parameter	emptyintarray = [integer::]
real(preal), dimension(0), parameter	emptyrealarray = [real(pReal)::]
character(len=pstringlen), dimension(0), parameter	emptystringarray = [character(len=pStringLen)::]

Detailed Description

Interfaces DAMASK with MSC.Marc.

Author

Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH

Franz Roters, Max-Planck-Institut für Eisenforschung GmbH

Luc Hantcherli, Max-Planck-Institut für Eisenforschung GmbH

W.A. Counts

Denny Tjahjanto, Max-Planck-Institut für Eisenforschung GmbH

Christoph Kords, Max-Planck-Institut für Eisenforschung GmbH

Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH

Usage:

• choose material as hypela2
• set statevariable 2 to index of homogenization
• set statevariable 3 to index of microstructure
• use nonsymmetric option for solver (e.g. direct profile or multifrontal sparse, the latter seems to be faster!)
• in case of ddm (domain decomposition) a SYMMETRIC solver has to be used, i.e uncheck "non-symmetric"

Marc subroutines used:

• hypela2
• uedinc
• flux
• quit

Marc common blocks included:

• concom: lovl, inc
• creeps: timinc

  Author

  Franz Roters, Max-Planck-Institut für Eisenforschung GmbH

  Philip Eisenlohr, Max-Planck-Institut für Eisenforschung GmbH

  Christoph Kords, Max-Planck-Institut für Eisenforschung GmbH

  Martin Diehl, Max-Planck-Institut für Eisenforschung GmbH

  Luv Sharma, Max-Planck-Institut für Eisenforschung GmbH

  setting precision for real and int type

Function/Subroutine Documentation

ceq()

logical elemental pure function prec::ceq	(	complex(preal), intent(in)	a,
		complex(preal), intent(in)	b,
		real(preal), intent(in), optional	tol
	)

equality comparison for complex with double precision

Definition at line 239 of file DAMASK_marc.f90.

References preal_epsilon.

Referenced by cneq(), and rotations::om2ax().

Here is the caller graph for this function:

cneq()

logical elemental pure function prec::cneq	(	complex(preal), intent(in)	a,
		complex(preal), intent(in)	b,
		real(preal), intent(in), optional	tol
	)

inequality comparison for complex with double precision

Definition at line 263 of file DAMASK_marc.f90.

References ceq().

Here is the call graph for this function:

deq()

logical elemental pure function prec::deq	(	real(preal), intent(in)	a,
		real(preal), intent(in)	b,
		real(preal), intent(in), optional	tol
	)

equality comparison for float with double precision

Definition at line 152 of file DAMASK_marc.f90.

References preal_epsilon.

Referenced by dneq(), rotations::eu2ax(), and unittest().

Here is the caller graph for this function:

deq0()

logical elemental pure function prec::deq0	(	real(preal), intent(in)	a,
		real(preal), intent(in), optional	tol
	)

equality to 0 comparison for float with double precision

Definition at line 195 of file DAMASK_marc.f90.

References preal_min.

Referenced by rotations::ax2qu(), rotations::ax2ro(), lattice::buildtransformationsystem(), dneq0(), rotations::eu2ax(), rotations::eu2om(), rotations::eu2ro(), rotations::ho2ax(), lambert::lambert_balltocube(), lambert::lambert_cubetoball(), rotations::om2ax(), rotations::qu2ax(), rotations::qu2eu(), rotations::qu2ho(), rotations::ro2ax(), rotations::ro2ho(), rotations::rotvector(), and unittest().

Here is the caller graph for this function:

dneq()

logical elemental pure function prec::dneq	(	real(preal), intent(in)	a,
		real(preal), intent(in)	b,
		real(preal), intent(in), optional	tol
	)

inequality comparison for float with double precision

Definition at line 175 of file DAMASK_marc.f90.

References deq().

Referenced by rotations::fromaxisangle(), rotations::frommatrix(), rotations::fromquaternion(), material::material_parsemicrostructure(), unittest(), rotations::unittest(), and lattice::unittest().

Here is the call graph for this function:

Here is the caller graph for this function:

dneq0()

logical elemental pure function prec::dneq0	(	real(preal), intent(in)	a,
		real(preal), intent(in), optional	tol
	)

inequality to 0 comparison for float with double precision

Definition at line 218 of file DAMASK_marc.f90.

References deq0().

Referenced by rotations::om2ax(), rotations::qu2ax(), and rotations::unittest().

Here is the call graph for this function:

Here is the caller graph for this function:

prec_init()

subroutine prec::prec_init

reporting precision

Definition at line 130 of file DAMASK_marc.f90.

References unittest().

Referenced by cpfem_initall().

Here is the call graph for this function:

Here is the caller graph for this function:

unittest()

subroutine, private prec::unittest

private

check correctness of some prec functions

Definition at line 280 of file DAMASK_marc.f90.

References deq(), deq0(), dneq(), preal_epsilon, and preal_min.

Referenced by io::io_init(), lattice::lattice_init(), math::math_init(), prec_init(), quaternions::quaternions_init(), and rotations::rotations_init().

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

emptyintarray

integer, dimension(0), parameter prec::emptyintarray = [integer::]

Definition at line 113 of file DAMASK_marc.f90.

Referenced by source_damage_anisobrittle::source_damage_anisobrittle_init(), and source_damage_anisoductile::source_damage_anisoductile_init().

emptyrealarray

real(preal), dimension(0), parameter prec::emptyrealarray = [real(pReal)::]

Definition at line 115 of file DAMASK_marc.f90.

emptystringarray

character(len=pstringlen), dimension(0), parameter prec::emptystringarray = [character(len=pStringLen)::]

Definition at line 117 of file DAMASK_marc.f90.

Referenced by damage_local::damage_local_init(), damage_nonlocal::damage_nonlocal_init(), source_damage_anisobrittle::source_damage_anisobrittle_init(), source_damage_anisoductile::source_damage_anisoductile_init(), source_damage_isobrittle::source_damage_isobrittle_init(), source_damage_isoductile::source_damage_isoductile_init(), thermal_adiabatic::thermal_adiabatic_init(), and thermal_conduction::thermal_conduction_init().

pint

integer, parameter prec::pint = selected_int_kind(18)

number with at least up to +-1e18 (typically 64 bit)

Definition at line 51 of file DAMASK_marc.f90.

plongint

integer, parameter prec::plongint = selected_int_kind(18)

number with at least up to +-1e18 (typically 64 bit)

Definition at line 55 of file DAMASK_marc.f90.

ppathlen

integer, parameter prec::ppathlen = 4096

maximum length of a path name on linux

Definition at line 57 of file DAMASK_marc.f90.

preal

integer, parameter prec::preal = IEEE_selected_real_kind(15, 307)

number with 15 significant digits, up to 1e+-307 (typically 64 bit)

Definition at line 49 of file DAMASK_marc.f90.

Referenced by list::getfloats(), lattice::lattice_nonschmidmatrix(), and rotations::om2ax().

preal_epsilon

real(preal), parameter, private prec::preal_epsilon = epsilon(0.0_pReal)

private

minimum positive number such that 1.0 + EPSILON /= 1.0.

Definition at line 110 of file DAMASK_marc.f90.

Referenced by ceq(), deq(), and unittest().

preal_min

real(preal), parameter, private prec::preal_min = tiny(0.0_pReal)

private

smallest normalized floating point number

Definition at line 111 of file DAMASK_marc.f90.

Referenced by deq0(), and unittest().

pstringlen

integer, parameter prec::pstringlen = 256

default string length

Definition at line 56 of file DAMASK_marc.f90.

Referenced by io::io_read_ascii(), and read_materialconfig().

tol_math_check

real(preal), parameter prec::tol_math_check = 1.0e-8_pReal

tolerance for internal math self-checks (rotation)

Definition at line 59 of file DAMASK_marc.f90.

Referenced by crystallite_stresstangent(), lattice::lattice_c66_trans(), lattice::lattice_init(), lattice::lattice_schmidmatrix_slip(), and lattice::lattice_schmidmatrix_twin().